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PLANO DA OBRA 

INPUT é uma obra editada em fascículos semanais, e cada conjunto de 
15 fascículos compõe um volume. A capa para encadernação de cada vo- 
lume estará à venda oportunamente. 
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NAO FIQUE COM A COLEÇÃO INCOMPLETA 

Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
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alguns números, peça-os também a seu jornaleiro, ou entre em contato 
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Av. Mem de Sá, 191/193, Centro, telefone (021) 222-7422, das 7h30 
às 17h00 - dias úteis. 

2. Por carta — Envie para: 
DINAP — Distribuidora Nacional de Publicações 
Números Atrasados 
Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 

3. Por telex — Utilize o nº (11) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
Lisboa; Apartado 57; Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
pedidos dependerá da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 
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No primeiro artigo sobre seções 
cônicas, mostramos como desenhar 
círculos, elipses, parábolas e 
hipérboles no micro. Agora, veremos 
como incorporá-los aos programas. 


Como vimos em alguns exemplos do 
artigo anterior (página 801), as curvas 
cônicas estão no nosso dia-a-dia, por to- 
da a parte, e muitas vezes nem chega- 
mos a percebê-las. Mas não é dificil 
identificá-las: basta recorrer às equa- 
ções. Se, ao calcularmos a posição de 
um objeto em movimento, verificarmos 
que sua coordenada X é dada por 
A*COS T e sua coordenada Y, por 
A*SIN T (onde A é uma distância fixa 
e T, um ângulo que varia), ficará abso- 
lutamente evidente que estamos lidan- 
do com a equação de um círculo. 

Por outro lado, algumas vezes é mais 
fácil analisar o modo como algo se mo- 
ve do que calcular suas equações. Se, 
por exemplo, observarmos que a distân- 
cia de um objeto a um ponto é sempre 
constante, saberemos que se trata de um 
circulo, sem precisarmos calcular sua 
equação. Esse tipo de análise também 
se aplica a outras curvas. 


ELIPSE, PARÁBOLA, HIPÉRBOLE 





Uma elipse não difere muito de um 
círculo e, assim como este, é de fácil 
identificação. Ela é desenhada quando 


À medida que a escada escorrega, o balde 
preso a ela traça parte de uma elipse. 
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IDENTIFICAÇÃO DAS CURVAS 

UMA ELIPSE NO COTIDIANO 

NADO PARABÓLICO 
CÍRCULOS E POLÍGONOS 
RÁFICOS FEITOS DE CURVAS 
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um ponto se move de tal maneira que 
a sua distância a um dos focos somada 
à sua distância ao outro foco permane- 
ce sempre constante. 

Uma parábola, por sua vez, é dese- 
nhada quando um ponto se move de tal 
modo que a sua distância a um ponto 
fixo é igual à distância perpendicular a 
uma linha fixa. O ponto fixo correspon- 
de ao foco da parábola. A linha fixa, 
chamada de diretriz, é uma reta perpen- 
dicular ao eixo de simetria da parábola 
e que não corta a mesma — ou seja, es- 
tá fora dela. Como já vimos, a distân- 
cia da diretriz a um ponto qualquer da 
curva é igual à distância desse mesmo 
ponto até o foco. 

A descrição da hipérbole também é 
simples: ela é obtida quando um ponto 
se move e a distância dele a um ponto 
fixo menos sua distância a outro ponto 
fixo permanece constante. Os pontos fi- 
xos, um em cada metade da hipérbole, 
são seus focos. 

Os programas apresentados a seguir 
demonstram os dois métodos de identi- 
ficação de curvas — isto é, o de equa- 
ções e o de observação do comporta- 
mento de um ponto em movimento, 
Uma vez percebida a presença de um 
certo tipo de curva num programa, fica 
bem mais fácil utilizá-lo. 


UMA ESCADA ESCORREGANDO 





O primeiro programa mostra parte de 
uma elipse obtida durante um evento co- 
mum: uma escada escorregando numa 
parede. Observamos que um balde pre- 
so à escada traça parte de uma elipse à 
medida que esta escorrega. 

Suponhamos que a escada tem um 
comprimento de oitocentas unidades e 
que o balde está preso a quinhentas uni- 
dades do pé da escada. A posição do 
balde será X=-300*COS (ângulo) e 
Y=500*SIN (ângulo), o que sabemos 
corresponder à equação de uma elipse. 


Lélio) 


10 HOME :C = ATN (1) / 45 
15  HGR HCÓLOR= 2 
20 GOSUB 250 


30 GOSUB 50 

40 GoTo 40 

50 REM ESCADA 

60 FOR A = 80 TO O STEP - 10 


70 FORT = 0 TO 250: NEXT 

8o HPLOT 230 - 150 * cos (C * 
A),150 TO 228,150 - 150 * SIN 
(C * A) 

110 X= - 56 * cos (C * A) 

120 7 = 90 * SIN (C * A) 

130 GOSUB 190 


140 PRINT CHARS (7) 

150 NEXT 

190 REM BALDE 

200 IF Y = O THEN VTAB (22): 

HTAB (22): PRINT "SPLASH" 

210 HPLOT 228 + X,154 - Y TO 2 
28 + 4,150 —- T 

220 HPLOT TO 232 + X,150 - 7 

230 HPLOT TO 232 + X,154 - + 

240 HPLOT TO 228 + X,154 - Y: 
RETURN 

250 REM PAREDE 

260 OX = 230 


270 HPLOT 0X,0 TO 0X,150 

280 HPLOT OX + 8,0 TO OX + 8,1 
50 

290 HPLOT OX + 16,0 TO OX + 16 
+ 150 

300 FOR Y = O TO 150 STEP 10: 
HPLOT O0X,Y TO OX + 16,7 

310 NEXT 

320 RETURN 


10 LET wall=240: LET ladders= 
60: LET bucket=190 

20 GOSUB wall 

30 GOSUB ladder 

35 FLASH O 

40 GOTO 40 

60 FOR a=B0 TO O STEP -10 

70 PAUSE 25: LET r=a/(1B0/PI) 
80 PLOT ox-150*COS (r),oy 

90 DRAW ox-(ox-150*COS (r)), 
oyv+150*SIN (r) 


110 LET x=-60*COS (r) 

120 LET y=90*SIN (r) 

130 GOSUB bucket 

140 SOUND .1,a/2-15 

150 NEXT a 

160 FLASH 1: PRINT AT 10,5;"SP 
LASH" 

170 RETURN 


190 PLOT oxtx,ovty+5: DRAW 0,- 
2 


200 FOR n=oy+y TO ovty+2: PLOT 
ox+x-2,n: DRAW 4,0 

210 NEXT n 

220 RETURN 

240 BORDER O: INK 7: PAPER O: 
CLS 

250 LET 0x=232: LET oy=8B 

260 FOR y=1 TO 20: PRINT 
PAPER Z;AT y,29;" " 

270 NEXT y 

280 FOR v=oy-1 TO 165 STEP 16: 
PLOT ox,Yy 


290 DRAW 16,0: PLOT ox, y+B: 
DRAW 16,0: PLOT ox+B,y+8: DRAW 
0,8 

300 NEXT vy 

310 PLOT INK 4;ox+B,oy-l: 
DRAW INK 4;-232,0 

320 RETURN 


a 


10 COLOR 15,4,5:SCREENZ 
15 C=ATN(1)/45 


20 GOSUB 230:REM<parede> 

30 GOSUB 50:REMCescada> 

40 GoTo 40 

50 FOR AN=BO TO O STEP-10 

90 LINE (230-150*COS(C*AN),150)- 
(228,150-150*SIN(C*AN)),15 

110 X=-56*COS (C*AN) 

120 Y=90*SIN(C*AN) 

130 GOSUB 200:REM<balde> 

140 FORT=0 TO 500:NEXT 

150 NEXT 

160 RETURN 

200 IF Y=0 THEN Y=4:DRAW"BM160, 
156CISI6LDRDLBR2ZUZRDLBEBRDZRBRU 
2RDNLDBRRBULURBRD2ZBRUNLUCA4” 

210 LINE(228+X,154-Y)-(232+X,15 
O-YT) /15,BF 

220 RETURN 

230 LINE(230,0)-(255,150),6,BF 

250 FOR Y=0 TO 150 STEP 10 

260 LINE(230,Y)-(255,7),10 

270 NEXT 
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280 FOR Y=0 TO 150 STEP 20 

290 LINE(243,7)-(243,7+10),10 
300 NEXT 

310 LINE(0,151)-(255,191),3,BF 
320 RETURN 


10 PMODE 3,1:PCLS:SCREEN 1,0:€= 


ATN(1)/45 

20 GOSUB 230 

30 GOSUB 50 

40 GoTo 40 

50 FOR AN=BO TO O STEP -10 

70 COLOR 4,2 

90 LINE(230-150*COS(C*AN),150)- 
(228,150-150*SIN(C*AN)), PRESET 
110 X=-56*COS (C*AN) 

120 Y=90*SIN(C*AN) 

130 GOSUB 200 

140 FOR T=0 TO 500:NEXT 






















150 NEXT 

160 RETURN 

200 IF Y=0 THEN Y=4:DRAW"BM160, 
156C2S16LDRDLBRZU2RDLBEBRD2RBRU 
2RDNLDBRRULURBRD2ZBRUNLUCA4” 

210 LINE(228+X,154-Y)-(232+X,15 
0-Y), PSET,BF 

220 RETURN 

230 LINE(230,0)-(255,150),PSET, 
BF 

240 COLOR 2 

250 FOR Y=0 TO 150 STEP 10 

260 LINE(230,Y)-(255,Y),PSET 
270 NEXT 

280 FOR Y=0 TO 150 STEP 20 

290 LINE(243,Y)-(243,Y+10),PSET 
300 NEXT 

310 COLOR 3:LINE(0,151)-(255,19 
1), PSET,BF 

320 RETURN 


O programa compõe-se de três roti- 
nas principais — a que desenha a pare- 
de, a que desenha a escada e a que de- 
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senha o balde. A parede é traçada pri- 
meiro, entre as linhas 230 (250 no Ap- 
ple) e 320. Depois, a rotina entre as li- 
nhas 50 e 160 desenha a escada em no- 
ve posições diferentes a intervalos de 10 
graus. Essa rotina chama a seguinte, que 
fica entre as linhas 190 e 220 (240 no Ap- 
ple) e tem a função de desenhar um bal- 
de para cada posição da escada. As 
coordenadas do balde são calculadas nas 
linhas 110 e 120, e, como vimos, elas 
formam a equação de uma elipse. As 
posições anteriores do balde e da esca- 
da não são apagadas, para que se per- 
ceba mais facilmente que o caminho per- 
corrido pelo balde realmente faz parte 
de uma elipse. 





“ NADO PARABÓLICO 


Imagine o que acontece quando um 
nadador tenta atravessar um rio de 
águas rápidas. Mesmo que ele tenha co- 
mo alvo um determinado ponto na mar- 
gem oposta, a correnteza certamente o 
desviará um pouco do seu destino. Ca- 
so a velocidade da correnteza se equipa- 
re à do nadador, a distância do desvio 
será igual à metade da largura do rio, 
e o efeito conjunto das duas velocida- 
des fará com que o nadador percorra 
um caminho parabólico. 

Para entendermos a razão por que is- 
so ocorre, devemos pensar em termos de 
velocidade. O nadador visa sempre um 
ponto na outra margem e nada com uma 
velocidade V, enquanto o rio corre pa- 
ralelamente à margem, com a mesma ve- 
locidade V. Combinando os dois valo- 
res, obtemos a velocidade real do nada- 
dor em relação à margem. 

Esse raciocínio baseia-se na regra do 
paralelogramo de forças, empregada em 
problemas de física. Ela é usada na 
construção de uma parábola, onde a dis- 
tância do nadador ao foco (ponto que 
ele visa na outra margem) é igual à dis- 






Um nadador que se move com a 
velocidade da correnteza do rio percorre 
uma trajetória parabólica. 
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tância dele até a diretriz (distância per- 
corrida pelo rio no mesmo intervalo de 
tempo). 


10 HGR2Z : HCOLOR= 3 

20 GOSUB 50 

30 GOSUB 200 

40 coTo 40 

50 REM DESENHA RIO 

70 FOR LY = O TO 38: HPLOT 0,L 
Y TO 279,LY: NEXT 

B0 FOR LY = 153 TO 191: 
O,LY TO 279,LY: NEXT 

90 RETURN 
200 FORT = 
P .l 

210 X = 
T 

220 AN = 


HPLOT 


- 1 To - .05 BETE 


- 604 TAT;Y= 120% 
ATN ((X + 60) / - 7) 
230 GOSUB 300 


240 FX = INT (130 + 7): 
FX,95 TO FX + 8,95 


HPLOT 


245 HPLOT FX + 4,91 TO FX + 6, 
95 

250 HPLOT TO FX + 4,99 

255 NEXT 

260 RETURN 

300 XC = 187 + X:YC = 33 - Y 
310 XX = 0:YY = 6: GOSUB 420 
320 HPLOT INT (XC + XT), INT 
(YC + YT) 

330 RESTORE 

340 FORN=1TOl6 

350 READ XX,YY 

360 GOSUB 420 

270 HPLOT TO NC + EKT+ .5,TC 
-YT+.s 

380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6 


,0,14,6,12,0,14,-6,12,0,14,0,18 


CONDIÇÕES DE VISUALIZAÇÃO 

Várias providências podem ser to- 
madas para aperfeiçoar as condições 
de visualização do vídeo. Por exemplo, 
o esforço visual será diminuído com o 
uso de caracteres claros sobre fundo 


escuro. Assim, procure “sintonizar” 
pouco a pouco os controles de contras- 
te e intensidade, até melhorar a defini- 
ção dos caracteres. 

Experimente posicionar sua mesa de 
trabalho de tal maneira que a tela não 
reflita a luz proveniente de janelas ou | 

| de luminárias. Incline ligeiramente a te- | 
la, dirigindo os reflexos para longe de 
seus olhos. Também é aconselhável | 
cobrir a tela com um filtro anti-reflexivo 
(à venda em lojas de computadores). 





;2,18,2,22,-2,22,72,18,0,18 

420 XT = XX * COS (AN) - TY * 
SIN (AN) 

430 YT = XX * 
cos (AN) 

440 RETURN 


10 BORDER O: PAPER O: 
CLS 

20 REM rio 

60 LET parabola=190: LET 
mer=300: LET rotate=430 
70 LET ag=" 


SIN (AN) + YY * 


INK 7: 


80 FOR n=0 TO 3 

90 PRINT PAPER 4;aS: NEXT n 
100 FOR n=4á TO 18 

110 PRINT PAPER 1;aS: NEXT nm 
140 PRINT PAPER 2; INK 6G;AT 3 
IASsPEPSAT 19,15;"APGAT 3,22;* 


150 GOSUB parabola 

160 STOP 

190 LET 0x=187: LET ov=150 

200 FOR t=-1 TO -0.05 STEP 0.1 
210 LET x=-60*(t*t): LET vy=120 
*t 

220 LET a=ATN ((x+60)/-yv) 

230 PLOT 0x-60+y,0vy-60: DRAW 
INK 7:;10,0: DBAW INK 7;-5,7-5: 
DRAW INK 7:;0,10: DRAW INK 7; 


GOSUB swimmer 

| NEXT t 

| RETURN 

LET ox=0x+tx: LET ovy=ovy+y 
LET x=0: LET y=6 

GOSUB rotate 

PLOT oxtxt,ov+tyt 

RESTORE 410 

FOR n=1 TO 17 

READ x,Y 

GOSUB rotate 

DBAW xt,vt 

NEXT n 

LET ox=188: LET oy=150: 
RETURN 

410 DATA -3,0,0,3,3,0,0,-3,-2, 
0,0,-3,-4,0,0,4,0,-4,8,0,0,4,0 
;-4,-4,0,0,-4,-4,-4,4,4,4,-4 
430 LET xt=x*4COS (a)-v*SIN (a) 
440 LET yt=x*SIN (a) +y*COS (a) 
450 RETURN 


ny 


10 COLOR 15,9,9:9CREENZ 

20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 LINE(0,38)-(255,153),5,BF 


60 DRAW"BM123,158C1I5SS16NDZRDNLD 


70 DRAW"BM123,25NADNAD” 

BO DRAW" BM180, 25AD2LUZ” 

90 RETURN 

200 FOR T=-1 TO -.05 STEP .1 
210 X=-60*TAT:Y=120*T 

220 AN=ATN((X+60)/-T) 





swim 


230 GOSUB 300 

240 DRAW" BM"+STRS (INT (130+7))+” 
95" +" C9ORZNGH” 

250 NEXT 

260 RETURN 

300 XKC=187+X:YC=33-Y 

310 XX=0:YY=6:GOSUB 420 

320 DRAW" BM" +STRS (INT (XC+XT))+" 
|" +STRS (INT (YC-YT)) 

330 RESTORE 

340 FOR N=1 TO 16 

350 READ XX,YY 

360 GOSUB 420 

370 LINE-(XC+XT+.5, YC-YT+.5),15 
380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6,0 
.14,6,12,0,14,-6,12,0,14,0,18,2 
,18,2,22,-2,22,72,18,0,18 

420 XT=XX*COS (AN) -YY*SIN (AN) 
430 YT=XX*SIN (AN) +YY*COS (AN) 
440 RETURN 


10 PMODE 3,1:PCLS:SCREEN 1,0 

20 GOSUB 50 

30 GOSUB 200 

40 GOTO 40 

50 COLOR 3,2:LINE(0,38)-(255,15 
3) , PSET,BF 

60 DRAW"BM123,158C4SI6NDZRDNLD” 
70 DRAW"BM123, 25NRDNRD” 

B0 DRAW"BM180, 25RD2LUZ” 

90 RETURN 

200 FOR T=-1 TO .05 STEP .1 

210 X=-G0*T*AT:Y=120*T 

220 AN=ATN((X+60)/-Y) 

230 GOSUB 300 

240 DRAW"BM"+STRS (INT (130+Y))+” 
95" +" C2R2NGH” 

250 NEXT 

260 RETURN 

300 XC=1B7+X:YC=33-Y 

310 XX=0:YY=6:GOSUB 420 

320 DRAW" BM"+STRS (INT (XC+XT) ) +" 
|" +STARS (INT (YC-YT)) 

330 RESTORE 

340 FOR N=1 TO 16 

350 READ XX, YT 

360 GOSUB 420 

3720 LINE -(RC&KT+H.D, YC-YT+.5)sP 
RESET 

380 NEXT 

390 RETURN 

410 DATA 0,6,-6,0,0,6,6,0,0,6,0 
,14,6,12,0,14,-6,12,0,14,0,18,2 
,18,2,22,-2,22,72,18,0,18 

420 XT=XX*COS (AN) -YY*SIN(AN) 
430 YT=KX*SIN(AN)+YYXCOS (AN) 
440 RETURN 


A primeira seção do programa, nas 
linhas 50 a 160, desenha o rio e as mar- 
gens. A seção seguinte, nas linhas 170 
a 290, usa a equação da parábola (linha 
210) para calcular a posição do nadador. 
A rotina do nadador está entre as linhas 
300 e 400. Ela recorre à rotina de rota- 
ção (linhas 420 a 450) para garantir que 
o nadador seja desenhado com o ângu- 








lo correto, ou seja, para que esteja vi- 
sando sempre o mesmo ponto na outra 
margem (que, neste caso, corresponde 
ao foco da parábola). O formato do na- 
dador é definido pela linha DATA 410. 


“CÍRCULOS E POLÍGONOS 





Para o computador, um círculo na- 
da mais é do que um polígono de mui- 
tos lados. Quanto maior for o número 
de lados, mais lisa será a curva. Os usuá- 
rios do Apple já devem ter percebido 
que temos usado polígonos para obter 
círculos, compensando a lamentável fal- 
ta do comando CIRCLE. No programa 
a seguir, eles verão que as linhas 70, 75 
e 80 simulam um comando CIRCLE pa- 
ra o desenho de um circulo de raio 70 
e com centro em 127,95. Por uma ques- 
tão visual, fizemos o raio na direção Y 
um pouco menor (65 em vez de 70). Ca- 
so contrário, o circulo ficaria oval, apa- 
rentando ser uma elipse. 


10 PI = 4 * ATN (1) 

60 HOME : HGR HCOLOR= 1 

69 HPLOT 197,85 

70 FOR TH = O TO Z* PI STEPP 
I / 16 
[5 CX = 
= 65 * 
B0 HPLOT TO CX,CT: 
90 VTAB (23): INPUT 
ANGULO -" ; A 

100 A = A * ATN (1) / 45 

110 GOSUB 260 

130 HOME VTAB (23): INPUT "J 
OGA NOVAMENTE (S/N) ";ANS 

140 IF ANS = "8" THEN 10 

150 IF ANS < > "Nº THEN 130 
160 HOME TEXT END 
260 TH = 2 * À 

2/0 N = 0 

280 HPLOT 185,95 

300 HPLOT TO 127 + 58 * 
(TH) .95 - 5B * SN (TH) 
310 TH = TH + 2 * À 

330 N=N+1 

340 IF N< 15 THEN G300 
350 RETURN 


10 LET 0x=100: LET ovy=90 
20 LET polyqgon=260 


70 * COS (TH) + 127:CY 
SIN (TH) + 95 

NEXT 
"FORNECER 


Cos 


30 PAPER O: INK 6 

40 BORDER O 

50 CLS 

BO PRINT INK 7;AT 0,22;"Raio 


do" 'TAB 22;"circulo e” '*TAB 
22;"82 unid.” 

90 PRINT INK 4:;AT 21,0; "Intr 
oduza o anqulo”; 


95 CIRCLE 100,90,82 
100 INPUT a 
105 PRINT AT 21,0;” 


110 GOSUB polyqgon 

120 PRINT AT 21,6;"Outra vez ? 
(S/N)” 

130 LET aS=INKETYTS: 
THEN GOTO 20 

140 IF a$=“n” THEN 
150 GOTO 130 

260 LET a=a/(180/PI) 

270 LET at=0 

280 LET t=2*a 

290 PLOT ox+82,o0y 

300 FOR n=0 TO 15 

310 LET b=B2*C0OS (t)J+ox: 
=B2*S8IN (t)+oy 


IF ag="9" 


STOP 


LET € 


320 LET b=(b-(PEEK 23677)): 
LET c=(c-(PEEK 23678)): DRAW b 
, E 

330 SOUND 0.01, (n*5)-20 

340 LET t=L+2*%a 

350 NEXT n 

360 RETURN 


Dt 


10 COLOR1,15,15 

20 GOSUB 90 

30 GOSUB 60 

40 GOSUB 120 

50 CLS: END 

60 SCREEN? 

70 CIRCLE(127,95),70,13:CIRCLE( 
127,95),60,13:PAINT(127,30),13 
BO GOTO 260 

90 CLS:LOCATE9,10:INPUT"Forneça 
um ângulo ";A 

100 A=A*ATN(1)/45 

110 RETURN 

120 SCREENO:CLS 

130 LOCATES, 10: INPUT"Joga novam 
ente (s/n) ";ANS 
140 IF AN$S="S" OR 
RUN 

150 IF ANS<>"N” AND ANS<>"n" TH 
EN 120 

160 RETURN 

260 TH=2*A 

270 N=0 

280 DBAW"BM18B5,95" 

300 LINE-(127+5B*COS(TH),95-5B* 
SIN(TH))J,l 

310 TH=TH+2*A 

320 PLAY"T2SSLO4AV"+STAS (15-N)+" 

CAGF" 

330 N=N+1 

340 IF N<15 THEN 300 

350 IF INKEYS="" THEN 350 

360 RETURN 


10 PMODE 3,1 

60 PCLS:SCREEN 1,0 

70 CIRCLE(127,95),70,4:CIRCLE(I 
27,95),60,4:PAINT(127,30),4 

BO FOR G=1 TO 2000:NEXT:COLOR 2 
90 CLS: PRINT: INPUT"QUAL O ANGUL 
O ";h 


ANS="8B” THEN 





Efeitos muito interessantes 
podem ser obtidos pela sobreposição 
de curvas cônicas., 


100 A=A*ATN(1)/45 

110 SCREEN 1,0:GOSUB 260 

120 IF INKEYS="" THEN 120 

130 PRINT: PRINT: INPUT"NOVAMENTE 
(S/N) "; ANS 

140 IF AN$S="8" 

150 IF ANS<>"N” 

LS: END 

260 TH=2*A 

270 N=0 

280 DRAW"BM1B5,95”" 

300 LINE-(127/+58*CoS(TH),95-58* 

SIN(TH)), PSET 

310 TH=TH+2*A 

320 PLAY"T20V"+STAS(31-N*2)+"C” 

330 N=N+1 

340 IF N<15 THEN 300 ELSE RETUR 

N 


THEN 60 
THEN 130 ELSE €C 


O programa desenha um circulo e pe- 
de que forneçamos o ângulo que a pri- 
meira linha formará com o lado do cir- 
culo. O ângulo A ou a é convertido pa- 
ra Teta (TH ou t) na linha 260 da roti- 
na que desenha o polígono. O número 
de lados foi restrito a quinze (linha 340) 
para o diagrama não ficar parecendo 
apenas um emaranhado de linhas. 

Se fornecermos um ângulo pequeno, 
o polígono se assemelhará a um círcu- 
lo. Com ângulos maiores, a forma mais 
provável será a de uma estrela. 


ARTE POR COMPUTADOR 





O programa a seguir desenha hipeér- 
boles com diferentes excentricidades e, 
sobre elas, várias elipses. Podemos com- 
binar outros tipos de curva para obter 
desenhos mais complexos — basta dar 
asas à imaginação. 


Lélio] 


LO HOME 
20 €C = 
ATN (1) 
30 GOSUB 70 
40 GOSUB 255 


HCOLOR= 3 
= q * 


HGR2 
ATN (1) / 45:PI 












50 GOTO 50 


70 FOR E =1TOl.25 STEP .02 
100 A = 22:B = À * SQR (E * É 
- :) 

110 HPLOT 128 + INT (A / COS 
(t-80*C)),95 - INTO(BY* T 
AN ( - 80 * C)) 

130 FOR TH = - 80 TO 80 STEP 
20 

140 X = A / COS (TH * €) 

150 Y = B * TAN (TH * C) 

160 HPLOT TO 128 + X,95 —- 7 
170 NEXT 

180 HPLOT 127 + INT (A / COS 
(100 * €)),95 - INT (B * TAN 
(100 * C)) 

190 FOR TH = 100 TO 260 STEP 2 
Ú 
200 X = A / COS (TH * C) 
210 Y = B * TAN (TH * C) 
220 HPLOT TO 127 + X,95 - | 
230 NEXT TH,E 
250 RETURN 
255  HCOLOR= 2: HPLOT 222,95 
260 FOR E=1TO.I STEP - .b 
E 
270 FOR AN = O TO 2Z* PI STEP 
PI / 16 
280 CX = 95 * cos (AN) + 127:€ 
Y = 90 * E * SIN (AN) + 95 
290 HPLOT TO CX,CY: NEXT AN 
300 NEXT E: RETURN 

10 BORDER O: PAPER O: INK 7: 
CLS 

20 LET hiperbola=80 

30 LET elipse=270 

40 GOSUB hiperbola 

50 GOSUB elipse 

60 GOTO 60 

BO LET 0x=128: LET ov=B/ 

90 FOR e=1l TO 2 STEP 0.05 


100 LET a=22: 
2-1)) 
102 LET 
104 LET f=ox+(a/COS (-1.396)) 
106 LET g=oy+(D*TAN (-1.396)) 
108 IF q<0 THEN LET h=0 

110 PLOT INVERSE 1; OVER 1;£, 
h 
120 
q 
130 
135 
140 
TAN 
142 


LET b=a* (SQR (e” 


h=1 


IF 9>0 THEN PLOT INK 6;f 
t=-80 TO 80 STEP 20 
r=t/(180/PT) 


x=a/COS (r): 


FOR 
LET 
LET 
(r) 
LET c=ov+y: 
150 IF h=0 THEN 
di/(c-g): PLOT d,h: LET c=0 
160 IF c>175 THEN LET d=d-((d 
-PEEK 23677)*(c-175)/(C-PEEK 
23678)): LET c=175 

170 DRAW INK 6;d-PEEK 236/7,c 
-PEEK 23678: NEXT £ 

172 LET f=ox+(a/COS (1.75)) 
174 LET g=oy+(b*TAN (1.75)) 
176 PLOT  INVERSE 1; OVER L;f, 
h 
178 


LET y=b* 


LET d=ox+x 
LET d=f+9* (£- 


IF q<0 THEN LET h=0 


202 LET CrorTYy: 


180 IF q>0 THEN PLOT INK 6;f 
Sd 

190 FOR t=100 TO 260 STEP 20 
195 LET r=t/(180/Pl) 

200 LET x=a/(COS (r)): LET y=b 
*TAN (tr) 


LET d=ox+x 
LET d=f+9* (É- 
LET c=0 


204 TF h=0 THEN 
d)/(c-9g): PLCT dh: 
206 LET h=1 

210 IF c>175 THEN LET d=0-((d 
-PEEK 23677)*(c-175)/ (c-PEEK 
23678)): LET c=175 

220 DRAW INK 6;/d-PEEK 23677,€ 
-PEEK 23678 
230 NEXT Lt: 
250 RETURN 
270 FOR e=0.5 TO 0.98 STEP 
0.04 

2B0 LET a=100: 
-8"2)) 

290 PLOT oxta,oy 

300 FOR t=0 TO 360 STEP 10 

305 LET r=t/(180/PT) 

310 LET x=a*COS (r) 

320 LET y=b*SIN (r) 

330 DRAW x-(PEEK 23677)+0x,y-( 
PEEK 23678)+oy 

340 NEXT t: NEXT e 

360 RETUBN 


4 


10 COLOR 1,15,15:SCREEN 2 

Z0 C=ATN(1)/45 

30 GOSUB 70 

40 GOSUB 260 

50 GoTo 50 

70 FOR E=1 TO 1.25 STEP .02 

100 A=22:B=A*SQR (E*E-1) 

110 DRAW"BM"+STRS (128+INT(A/COS 
(=80*C)))+","+STR$S (95-INT (B*TAN 
(-80*C))) 


NEXT e 


LET b=a* (SQR (1 


130 FOR TH=-B0 TO BO STEP 20 
140 X=A/COS(TH*C) 

150 Y=B*TAN(TH*C) 

160 LINE-(128+X,95-Y),1 

170 NEXT 

180 DRAW"BM"+STRS (127+INT(A/COS 
(100*C)))+","+STRS (95- INT (B*TAN 
(100*€))) 

190 FOR TH=100 TO 260 STEP 20 
200 X=A/COS(TH*C) 

210 Y=BA*TAN(TH*C) 

220 LINE-(127+X,95-Y),1 

230 NEXT TH,E 

250 RETURN 

260 FOR E=1l TO .1 STEP -.03 

270 CIRCLE(127,95),95,8,,, E 


280 


10 PMODE 3,1:PCLS2:SCREEN 1,0 
20 C=ATN(1)/45 

30 GOSUB 70 

40 GOSUB 260 

50 GOTO 50 

70 FOR E=1 TO 1.25 STEP .02 

100 A=22:B=A*SQR(E*E-1) 

110 DRAW"BM"+STRS (128+INT(A/COS 


NEXT: RETURN 
























A equação para um círculo também 
é usada para os polígonos. 


(-80*C)))+","+STRS (95-INT (B*TAN 
(-B0*C))) 


130 FOR TH=-80 TO BO STEP 20 
140 X=A/COS(TH*C) 

150 Y=B*TAN(TH*C) 

160 LINE-(128+X,95-Y), PSET 

170 NEXT 

180 DRAW" BM"+STRS (127+INT(A/COS 


(100*%C)))+","+STRS (95- INT (B*TAN 
(100*C))) 

190 FOR T4=100 TO 260 STEP Z0 
200 X=A/COS (TH*C) 

210 Y=B*TAN(TH*C) 

220 LINE-(127+X,95-Y), PSET 
230 NEXT TH,E 

250 RETURN 

260 FOR E=1l TO .1 STEP .043 
270 CIRCLE(127,95),95,3,E 

280 NEXT: RETURN 


Tanto a elipse quanto a hipérbole po- 
dem ser desenhadas com excentricidades 
diferentes — este é o papel que cabe à 
variável E ou e. 

Para as elipses, E varia de O até 1, 
fazendo-as ir desde um circulo até uma 
reta. No programa, E varia de .5 a .98, 
o que garante que as elipses sejam sufi- 
cientemente abertas. 

Nas hipérboles, E pode variar de 1 até 
o infinito, mas, novamente, o progra- 
ma restringe o intervalo, fazendo com 
que E varie de 1 a 2. Quanto maior for 
E, mais próxima a hipérbole estará de 
uma reta. 

É muito fácil calcular a excentrici- 
dade de uma elipse ou de uma hipér- 
bole. Para uma elipse de equações 
X=A*COS Te Y=B*SIN T, a fórmu- 
la será E?=B*/Aº— 1, como pode ser 
observado na linha 280 do programa pa- 
ra o Spectrum. Os outros micros não 
precisam calcular a variável É, que é 
simplesmente incorporada ao comando 
CIRCLE (MSX e TRS-Color) ou à si- 
mulação do mesmo (Apple, linha 280). 

Para uma hipérbole cujas equações 
são do tipo X=A/COSTe Y=B*TAN 
T, temos E*=1-B//A”. Uma versão 
adaptada dessa fórmula é utilizada na 
linha 100 do programa. 












DO SPECTRUM (1) 


Existem muitos recursos “ocultos” na 
ROM do ZX Spectrum. Conhecendo-os, 
você poderá empregar fantásticos 
truques de programação em BASIC, 
obtendo o máximo de seu computador. 


O micro Sinclair ZX Spectrum ilus- 


tra muito bem o famoso ditado “tama- 


nho não é documento”. Os felizes usuá- 
rios dessa popular maquininha, que já 
tiveram a oportunidade de conhecer 
mais a fundo seus recursos técnicos, po- 
dem testemunhar o quanto eles são po- 
derosos — mais até do que os encontra- 
dos em muitos microcomputadores pro- 
fissionais, maiores e mais caros. 

Na série de artigos que iniciamos 
aqui, você verá de que modo pode ex- 
plorar alguns ““recursos secretos” do 
Spectrum e de seus compatíveis nacio- 
nais (como o TK-90X e o TK-95 da Mi- 
crodigital) e internacionais. 

Por que ''secretos””? Como você 
mesmo terá oportunidade de verificar, 
tais recursos não estão documentados 
no Manual de Operação e, portanto, são 
desconhecidos da grande maioria dos 
usuários. 


A TELA PROTEGIDA 





É provável que você ainda não tenha 
descoberto a possibilidade de escrever 
nas duas linhas da parte de baixo da te- 
la. Normalmente, não se usa o coman- 
do PRINT para escrever nessas linhas, 
pois elas são reservadas para a entrada 
de dados (INPUT), para a entrada e edi- 
ção de programas € para a impressão de 
mensagens de erro do interpretador BA- 
SIC. E muito fácil, porém, modificar 
um comando PRINT de tal maneira que 
se possa utilizar essa área independente 
da tela: 


10 PRINT 0;"Mensagen” 


O comando funciona evidentemente 
dentro de um programa. O número ze- 
ro, colocado entre o PRINT e a mensa- 
gem a ser escrita, provoca o efeito de- 
sejado. Para limpar a parte de baixo da 
tela sem afetar a área normal de escri- 
ta, use a instrução: 


20 INPUT ""” 

Proçure não deixar um espaço em 
branco entre as aspas, pois o comando 
não funcionará. 

Experimentando um pouco mais, vo- 
cê fará novas descobertas sobre a parte 
inferior da tela. Verá, por exemplo, que 
ela não é limitada às duas linhas antes 
mencionadas. Dessa maneira, se mais 
palavras forem incorporadas ao progra- 
ma, a parte de baixo se expandirá, “'em- 
purrando" para cima a parte superior 
da tela. 

Pode-se também usar o comando 
PRINT AT na parte inferior da tela, 
neste caso, porém, a numeração deve ser 
independente. 

Tente o seguinte: 


10 PRINT O;"INPUTP;AT 12,0; 
"APRESENTA DICAS” 


Se você quiser limpar a parte de bai- 
xo, após uma pequena pausa, acrescen- 
te estas linhas: 

Zz0 PAUSE OQ 
30 INPUT "T:PAUSE OQ 

E, para obter sucessivas repetições,' 

acrescente: 


40 GOTO 10 


Finalmente, se para você é dificil per- 
ceber onde começa cada área indepen- 
dente da tela, adicione ao programa a 
linha a seguir, e rode-o novamente. Co- 
mo você verá, o comando BORDER co- 
loca uma moldura de cor diferente na 
parte de cima da tela. 


5 BORDER 2 





APLICAÇÕES 


Mas para que servem esses truques? 
Tudo depende de sua capacidade de co- 
locar a imaginação para funcionar. 

A escrita na parte inferior da tela po- 
deria ser utilizada, entre outras coisas, 
para deixar fora da área principal as 
mensagens de prontidão para entrada de 
dados. Assim, ao realizar, por exemplo, 
uma animação gráfica, será possível co- 
locar mensagens num ponto em que não 
atrapalhem o movimento nem sejam 
destruídas por ele. 


O ES E 
OS SEGREDOS 


“EH COMO ESCREVER NAS 
LINHAS RESERVADAS DA TELA 
INDEPENDENTES DA TELA 

re UMA TELA LISTRADA 


Outra aplicação importante consiste 
na criação de “janelas”: áreas indepen- 
dentes de texto ou de gráficos, muito 
usadas nos '“'pacotes'”' mais modernos 
para micros profissionais. 


“UMA TELA LISTRADA 


Pode-se obter um outro efeito inte- 
ressante de tela quando o computador 
está sem fazer nada — aguardando, por 
exemplo, que uma tecla seja pressiona- 
da (função INKEY$). Nesse tipo de si- 
tuação, sofistique seu programa com a 
rotina apresentada a seguir. Ela indica 
o estado de espera, fazendo a moldura 
da tela exibir continuamente um listra- 
do cambiante de cores: 


1 GOTO 100 

2 BORDER 1:BORDER 2:BORDER 4: 
BORDER 5:BORDER 6:BORDER 7: 
PAUSE 1:IF INKEY$="" THEN GOTO 
10 

3 LET XS$=INKEYS: RETURN 

80 REM --=—=—————————————— 

90 REM PROGRAMA PRINCIPAL 

95 REM -==———————— ==... 

100 GOSUB 10 

110 PRINT XS:GOTO 100 


A instrução da linha 2, PAUSE 1, 
sincroniza as mudanças nas cores da 
moldura de modo que ocorram simul- 
taneamente ao início da varredura da te- 
la. Assim, elas parecem estar estacioná- 
rias. Experimente tirar o PAUSE 1 pa- 
ra ver O que acontece. 

O número de comandos BORDER 
também desempenha uma função: co- 
mandos que estejam a mais ou a menos 
forçarão uma perda da sincronização. 

Introduza a rotina da linha 2 no co- 
meço do programa principal, que deve 
ser colocado a partir da linha 100. A li- 
nha | serve apenas para pular até o iní- 
cio do programa. O truque é necessário, 
pois o GOTO existente na linha 2 pro- 
vocará um grande retardo se a sub-roti- 
na estiver no final da listagem. Como o 
interpretador BASIC procura a linha de 
destino a partir do início do programa, 
sempre que encontra um GOTO, a de- 
mora será maior se houver um longo 
programa antes da linha que contém a 
instrução de desvio. 
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21 APLICAÇÕES 


"UMA AGENDA 


RETRONICA 


Se você já tem as duas partes ante- 
riores deste programa gravadas em dis- 
co ou fita, carregue-as na memória do 
micro e digite as linhas que faltam. O 
programa estará completo e você pode- 
rá começar a usá-lo para manter um re- 
gistro de todos os seus compromissos fi- 
nanceiros, sociais ou de saúde. 

É aconselhável que releia as instru- 
ções para a utilização do programa da- 
das nos dois primeiros artigos da série. 
Instruções adicionais sobre gravação e 
leitura de dados da fita ou disco são for- 
necidas a seguir. 

É fácil lidar com o programa. O me- 
nu principal permite que você escolha 
exatamente o que deseja, em cada situa- 
ção. A todo instante, você encontrará 
uma mensagem indicando como proce- 
der. Todos os pontos de entrada de da- 
dos têm uma rotina de verificação. Por- 
tanto, não se preocupe muito em digi- 
tar dados incompatíveis — o programa 
simplesmente voltará a solicitar o dado, 





GRAVAÇÃO DOS DADOS 


Após entrar os dados de sua agenda, 
escolha a opção 8 para gravá-los. No 
Apple II, o programa prevê o emprego 
de um drive; nos demais micros, de fita 
cassete. Há uma rotina especial para 
quem utiliza o TRS-Color com drives. 
Se você usa fita, deixe o gravador pre- 
parado para receber os dados quando 
solicitar a opção 8. 

Ao usar novamente o programa, res- 
ponda 8 à pergunta “Você tem listas de 
dados?". Os dados preexistentes serão 
carregados para a memória, podendo 
ser atualizados, apagados, listados. An- 
tes de teclar S, deixe o gravador pronto 
para ler a fita com os dados. : 

O nome para esse arquivo é “DIA- 
RIO”. Assim, adote outro nome para 
o programa (CALENDARIO, por 
exemplo). 


1760 
L770 


LET M4=0: LET A4=0 

INPUT "CANO:C; YA: IF TR<1/5 
YR>29999 THEN GOTO 1770 
JOSUB 640 

GOSUB 2480 


1780 
1790 





CLS 

POKE 23692,255 

PRINT 4P;"ANO ";YR 

PRINT 4P: LET KB=0: GOSUB 
: PRINT +P 

GOSUB 2460 

FOR z=1 TO 12 

LET MO=z 

PRINT 4P;MS (MO*9-B TO MO0*9 


1860 
1870 
) 
1880 LET S2=0D: GOSUB 
2020 
1890 
THEN 
1900 
1910 
1920 
= () 
1930 IF KB=0 
INT +4P 

1940 TF P=3 
1950 PHINT 4P;Z5( 
1960 FOR d-] TO 7 
1970 INK 4: IF d=] THEN INK 2 
1980 PRINT 4P;Z5( TO KB);5s5S((d- 
1)*3+1 TO (d-1)*3+3); 

1990 NEXT d 

2000 INK ? 

2010 RETURN 

2020 PHINT 

2030 TF P-3 THEN PRINT AT 10,4 
: FLASH 1;"SAIDA PARA A IMPRESS 
ORA" 


LET T2=5b: 
[F P=2 THEN IF INKEYS="" 
GOTO 1890 
NEXT z 
RETURN 

LET X2=0: 


LET €C2=0: LET D2 


THEN LET X2=7: PR 


THEN LET KB=KB+1 
To X2); 


2040 LET M5=0: LET XP=0: LET X2 

O: LET W2=0: LET AS-"": LET D$ 

2050 IF S2=1 THEN LET AS=-" *: 

LET W2=4 

2060 IF S2=0 THEN LET X2=/: LE 

T W2=-3 

207u IF P=3 THEN LET AS=AS+" " 
LET W2=W2+] 

2080 LET DA=1 

2090 LEI KB-MO: GOSUB 270: LET 

MA&=KB 

2100 GOSUB 560: LET K2Z=7: LET & 

P=FN M(KB) 

2110 PRINT 4P;25( TO XP*W2); 

2120 LET DA=0 

2130 PRINT 4P;Z5( TO X2); 


2140 LET DA=DA+1: LET: DS=AS+(ST 
A$ (DA))+" ": IF LEN DS<W2 THEN 
LET D3=D5+Z5( TO W2-LEN D8S) 
2150 IF AS="" THEN PRINT 4P;DS 

:: GOTO 2170 
2160 LET KB=TZ: 
T +4P; INK KB;DS; 
2170 LET XP=XP+1 
2180 IF NOT (XP>6 OR DA=M5) THE 
N GOTO 2140 
2190 LET XP=o0O: 


GOSUB 350: PRIN 


PRINT 4P: IF SZ= 


4 THEN 


Apresentamos aqui a parte final do 
nosso programa de agenda e calendário. 
Tendo listado as últimas rotinas, você 
poderá, finalmente, explorar todas as 
possibilidades desse versátil programa. 


PRINT tP 


2200 TF DA<>MS5 THEN GOTO 2130 


2210 TF MO=ME THEN 
PRINT 4P;"Domingo de Pascoa ";M 


PRINT 4P;: 


S (ME*9-B TO ME*9) ; DE 


2220 IF P=3 THEN 


LEO: 





PRINT AT 10,0 
PRINT AT 10,13;" PRONTO” 





ão 
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| E “ROTINAS QUE COMPLETAM INFORMAÇÃO PARA A MEMÓRIA 
O PROGRAMA EH ATUALIZAÇÃO DA INFORMAÇÃO 
Mat “GRAVAÇÃO DAS LISTAS DE IH A ROTINA DE IMPRESSAO 
- AGENDA EMFITA MUDANÇAS PARA 
' E. Ê COMO CARREGAR A “SISTEMAS COM DISQUETE 
2230 RETURN 2280 PAINT HP;"DIA ENTRADA” 2320 PRINT 4+P 
2240 GOSUB 2510 * PRINT AT 0,18;"Qualquer tecla 2330 FOR t=1 TO 4 
ah 2250 LET T2=0: LET MX=0: LET N2 para"' TAB 18;"proxima entrada” 2340 LET MX=Q(L) 
=0: LET AS="": LET CL=D: LET M9 2290 PRINT 4P 2350 IF MX=0 THEN GOTO 2410 
=MO: LET Y9=YB 2300 GOSUB 2450 2360 FOR N=1 TO MX 
7260 GÓSUB 2480: CLS 2310 IF MO=ME THEN PRINT 4P; 1 2370 LET KS=LS(L,N) 
k 2270 GOSUB 2570: PRINT 4P NK 5S:;DE;”" Domingo de Pascoa” 2380 LET KB=t 


Es sê 


12345 & 
76H12 

13 1115161716 
ppa 1222352 


g522/2793º 














2390 LET K2=3: GOSUB 470: IF KZ 
=1 THEN PRINT &P; INK Z(T):;K5SC 
Z TO 3);" "“;K5S(10 TO ) 

2400 NEXT N 

241€ IF INKEYS="" THEN GOTO 24 
LO 

2420 NEXT 1 

2430 FOR 1=1 TO 100: NEXT 1 
2440 IF INKEYS="" THEN GOTO 24 
40 

2450 LET MO=M9: LET YR=Y9:; RETU 
RN 

2460 IF INKEYS="" THEN GOTO 24 
60 

2470 RETURN 

2480 PRINT PRINT "DESEJA IMPR 
IMIR (9/N) ?7”": LET K$="sn”: GOS 
UB 1480 

2490 LET P=2: IF KB=1 THEN LET 
P=3 

2500 RETURN 

2510 INPUT "MES ?";MO 





APLICAÇÕES PROFISSIONAIS 

DO PROGRAMA DE AGENDA 

O programa de agenda e calendário, 
| além de funcionar bem para a marca- 
| ção e acompanhamento de compromis- 
sos e atividades de natureza pessoal, 
pode ter diversas aplicações profissio- 
nais, tal como a marcação de consul- 
tas em uma clínica médica ou odonto- 
lógica. Para isso, será necessário mo- 
dificar o programa em alguns pontos, 
pois o nível e o tipo de informações que 
ma agenda profissional requer são 
bem diferentes dos de uma agenda 

pessoal. 
| Tomemos como e 
| profissional de um de 
| formações como da 
| sulta, nome, sexo 
| ela pode incorporar 
do — entre eles, 
| adotado (obtur if roloca- 
ção de prótese Eção previs- 
| ta para a con à em que ela 
será realizada. idos podem ser 
incluídos, como o saldo inan- 
ceiro do paciente e a fonte pagadora 
(convênio, por exemplo). 

Os relatórios obtidos a partir de uma 
| agenda também são muito diferentes 
| para um profissional. No caso do den- 
tista, ele poderia precisar não só da 
agenda diária impressa, com a lista dos 
pacientes a serem atendidos e demais 
| dadóS mencianados, mas, ainda, da 
list m dôs as que faltaram, 


de a lise estâmstica dos proce- 
ealizado 


| dimento O mês etc. 
O mm 
















































2520 IF MO<1 OR MO>12 THEN GOT 


O 2510 

2530 INPUT “ANO ?"; YR 

2540 IF YR<1735 OR YR>29999 THE 
N GOTO 2530 
2550 GOSUB 640 
2560 RETURN 
2570 PRINT 4P; 
S(M0*9-8 TO MO*9);” 
2580 RETURN 


2240 'IMPRIME MES -T2-52 

2250 M5=0:XP=0:X2=0:W2=0:A28="" 
“D28="" 

2260 IF 582=1 THEN A2S=" ":W2=4 
2270 IF S2=0 THEN X2=7:W2=3 
2280 IF P=2 THEN AZS=A25+" ":W2 
=W2+1 


PAPER 1; 
pa “YH 


INK 7:M 





2290 DA=1 

2300 KB=MO:GOSUB 230:M5=KB 
2310 GOSUB 560:K2=7:XP=FNM(KB) 
2320 PRINT 4-P, STRINGS (XP*(W2), 
S2); 

2330 DA=0 

2340 REM 

2350 Eid 1h 


PRINT 4-P, STRINGS (X2,” 





:“D25=AZS+MIDS (STRS ( 
LEN (D28)<W2 THEN 








ER e 
D28+" m 

IF A2Z$="" THEN PRINT f-P,D 
2400 

1 GOSUB 310:MIDS(D25S, 
at PRINTA-P,D2S; 


2420 XP=0: de 6-P:IF S2= 
N PRINT+- 

2430 IF Novi THEN 2340 
2440 IF MO=ME THEN PRINT +&- 
INTA-P,"DOMINGO DE PASCOA ” MID 
S (MNS,ME*9-8,9) ; DE 

2450 RETURN 

2460 "ROTINA DIARIO 

2470 T2=0:MX=0:N2=0:A58="":CL=0: 
M9=MO : Y9=YR 

24B0 GOSUB 2750:GOSUB 2720:CLS 

2490 GOSUB 2820:PRINT 4-P 
2500 PRINT4-P,” ENTRADA” 
GOSUB 2660 
IF MO=ME 
; "DOMINGO DE E 
2530 FOR T2=0 


25840 
| Mila 
KBS=AS:GOBUB 4 "IE K2=1 T 















2560 
2570 
2580 
2590 
2600 
HEN PRINT 4-P,MIDS (STARS (ASC (MID 
S(A$,2,1))),2);TAB(3);CHRS(CL); 
RIGHTS (AS, LEN(AS) -—4) 

2610 NEXT:PRINT &-P 

2620 IF P=0 AND INKEYS="" THEN 

2620 

2630 NEXT 

IF INKEYS="" THEN 2640 


2550 
AS=LIS(T2 


T(XP>6 OR DA=M5) T =W2+1 
om A=M5) da ÉS 








2650 MO=M9: YR=Y9: RETURN 

2660 'ESPERA POR TECLA ; 
2670 Pl=PEEK (136) :P2=PEEK(137) 

2680 PRINT €480,"QUALQUER TECLA 
PARA CONTINUAR” ; 

2690 IF INKEYS="" THEN 2690 

2700 PRINT €480, STRINGS (30,32); 
-POKE 136,P1:POKE 137,P2 

2710 RETURN 

2720 ' IMPRESSAO 

2730 PRINT:PRINT"GOSTARIA DE IM 

PRIMIR (S/N) ?”":KB$="SN”:GOSUB 
1590:IF KB=1 THEN P=2 

2740 RETURN 4 

2750 REM [ 

2760 INPUT"MES:”;MO 

2770 IF MO<1 OR MO>12 THEN 2760 1 
2780 INPUT” ANO:";YR k 
2790 IF YR<1753 OR YR>29999 THE 

N 2780 

2800 GOSUB 650 

2810 RETURN 

2820 REM 

2830 PRINT MIDS (MN$,MO*9-8,9);" 
"SER 

2840 IF P=2 THEN PRINT 4-2,MIDS 
(MNS,MO*9-8,9);” ";YR 

2850 RETURN 


Io 


2240 ' imprime mês 
2250 M5=0:XP=0:X2=0:W2=0:A25="" 


“ais S2=1 THEN AZS$=" ":W2=4 


2270 IF S2=0 THEN X2=7:W2=3 
2280 IF P=2 THEN AZS=AZS+" ":W2 













KB=MO:GOSUB 230:M5=KB 
GOSUB 560:K2=7:XP=FNM(KB) 
PRINTAP, STRINGS (XP*W2Z, 32) 


330 DA=0 
2340 REM 
2350 PRINTAP, STRINGS (X2,” ")D; 
2360 REM | 
2370 DA=DA+1:D25=AZS+MIDS (STR 
DA),2)+" ":TF LEN(D28)<W2 THEN 


D28=D25+" " 

2380 IF A2S="" THEN PRINT+P,D25 
“"GOTO 2400 

2390 KB=T2:GOSUB 310:MIDS(D25,1 
| 1) =CHRS (KB) : PRINT+P, D25S; 

2400 XP=XP+1 | 
2410 IF NOT(XP>6 OR DA=M5) THEN ' 
2360 

2420 XP=0: 
PRINTAP, 
2430 IF D 
2440 IF 

NT+P,"D 
"de Ma 












IF S2=J)a THEN Ê 


"+4CL=0: 
M9=MO: Y9=YR k 
2480 GOSUB 2750:GOSUB 2720:CLS 

2490 GOSUB 2820:PRINT+P, 
2500 PRINT+AP, Dia, 

1880” 





Comprom 





f 








SS 
| | | | a 


2510 GOSUB 2660 

2520 IF MO=ME THEN PRINT+kP,"dia 
":+DE;"Domingo de Páscoa": PRINT+ 
Ê, 
2530 FOR T2=0 TO 3 

25840 CL=32 

2550 IF P=2 THEN CL=32 

2560 MX=VAL (LIS(T2,0)) 

2570 IF MX=0 THEN 2620 

2580 FOR N2=1 TO MX 

2590 AS=LIS(T2,NZ) 

2600 KB$=AS:GOSUB 470:IF K2=1 T 
HEN PRINTAP,MIDS (STRS (ASC (MIDS( 
AS,2,1))),2);TAB(3);CHRS(CL) ;RI 
GHTS (AS, LEN(AS)-4) 

2610 NEXT: PRINTkP. 

2620 IF P=3 AND INKEYS="" THEN 
2620 
2630 
2640 


NEXT 

IF INKEYS="" THEN 2640 

2650 MO=M9: YR=Y9:RETURN 

2660 RETURN 

2720 '* opção impressão 

2730 PRINT: PRINT"Quer imprimir? 
(S/N)":KB$="SN”:GOSUB 1590:IF 

KB=1 THEN P=2 

2740 RETURN 

2750 * rotina de data 

2760 INPUT ”" Mês:";MO 

2770 IF MO<1l OR MO>12 THEN 2/60 

2780 INPUT " Ano:";YR 

2790 IF YR<1753 OR YR>29999 THE 

N 2780 

2800 GOSUB 650 

2810 RETURN 

2820 "* título 

2830 PRINTMIDS (MNS,MO*9-8,9);" 

"YR 

2840 IF 

8,M0*9-8B,9);” 

2850 RETURN 


r 


2240 REM IMPRIME 
2250 M5 = 0:XP = O 
Dado a "PEDZa = 
2260 IF S2=11 
W2 = 4 
2270 TF 
= 3 

2280 IF 


P=2 THEN LPRINT MIDS (MN 
“YR 












Ss2 = 0 :Wz 


AZ5 + 


2290 
2300 KB = MO: GOSUB 230:M5 = KB 
2310 GOSUB 560:K2 = 7:XP = EN 
M(KB) 

2320 PRINT SPC( XP * W2) 

2330 DA = O 

2340 REM 


29 = A28 + 5 
| ": IF LEN (D23) < 
28 = D25 +" € 
aa = "" THEN 








PRINT D 


SUB 310:D25 = 
DS (D25,2): PRIN 


1 


2410 IF NOT (XP > 6 OR DA = M 
5) THEN 2360 

2420 XP = O: PRINT IF 82 = 1 
THEN PRINT 

2430 IF DA < > M5 THEN 2340 
2440 IF MO = ME THEN PRINT CD 
OMINGO DE PASCOA: "4DE;” DE * 


: MIDS (MNS,ME * 9 - 8,9) 

2450 RETURN 

2460 REM ROTINA DIARIO 

2470 T2 = 0:N2 = 0:MK = 0:AS = 
"".CL = 0:M9 = MO:Y9 = YR 

2480  GOSUB 2750: GOSUB 2720: H 
OME 

2490 PRINT DS;"PR$4";P: GOSUB 2 










B20: PRINT 

2500 PRINT "DIA COMPROMIS 
So” 

2510 GOSUB 2660 

2520 IF MO = ME THEN PRINT DE 
:” —- DOMINGO DE PASCOA” 

2530 FOR T2 =0 TOS 

2540 CL = 40 

2550 IFP = 1 THENCL = 32 
2560 = VAL (LIS(T2,0)) 


IF MX = O THEN 2630 

FOR N2 = 1 TO MX 

AS = LIS(T2,NZ2) 

KBS = AS: GOSUB 470: IF KZ 
THEN PRINT STARS ( ASC ( 


S (AS,2,1))); TAB( 3); CHRS 
2); RIGHTS (AS, LEN (AS) - 4) 
610 NEXT PRINT 


2620 IF P = O AND T2 < 3 THEN 
GET R$ 
2630 NEXT PRINT "<>":P = O: 


PRINT D$;"PR$4";P: GET R$ 

2640 MO = M9:YH = Y9: RETURN 
2660 RETURN 

2720 REM OPCAO IMPRESSÃO 

2730 PRINT : PRINT PRINT "QU 
ER UMA COPIA IMPRESSA? (S/N) ”: 









KB5S = "SN": GOSUB 1590: IF KB = 
À THEN P = 1 

2740 RETURN 

2750 REM ROTINA DE DADOS 

2760 INPUT * MES: 

2770 IF MO <I THEN 
2760 

2780 INPUT * 

2790 IF YR < 2999 

9 THEN 2780 

2800 GOSUB 650 

2810 RETURN 

2820 REM ROTINA TI 

2830 PRINT MO * 9 - 
8.93: "sv MARS 

2840 REM 


2850 RETURN 













MUDANÇAS PARA DRIVE 


SR adaptar o progra- 


S-Color a um drive: ela inclui 
hequenas modificações nos co- 
Jam com o arquivo. 













A agenda é uma espécie de banco 
de dados? 

Sim, de certa forma, uma agenda é 
um banco de dados. Cada linha, reser- 


| vada para a anotação de um compro- 


misso, corresponderia a um registro de 
banco de dados. As informações sobre 
datas, horários e as descrições seriam 
os campos básicos. 

Tanto é assim que poderíamos uti- 
lizar o programa de banco de dados pu- 
blicado nos artigos das páginas 68, 
688 e 706 para estruturar uma agen- 
da diária. Com esse objetivo, definiria- 
mos os seguintes campos: 


1. DIA: dois caracteres, numérico 
2. MÊS: dois caracteres, numérico 


| 3. ANO: dois caracteres, numérico 


4. HORÁRIO: quatro caracteres, nu- 
mérico 

5. ATIVIDADE: trinta caracteres, alfa- 
bético 

6. TIPO: um caractere, alfabético 

7. STATUS: um caractere, alfabético 


O campo TIPO serviria para identi- 
ficar a categoria de compromisso ou 
atividade (por exemplo, L para lazer, P 
para profissional, F para familiar e as- 
sim por diante). Já o campo STATUS 
teria a finalidade de informar se a ati- 
vidade marcada foi realizada ou não. 

Depois de entrar seus compromis- 
sos utilizando esse esquema, será pos- 
sível pesquisar o banco de dados por 
meio das funções de PESQUISAR E 
LISTAR do programa gerenciador de 
bancos de dados. 

Com esse procedimento, você terá 
transformado o programa de banco de 
dados não em uma simples agenda, 
mas num poderoso e flexível instru- 
mento de gestão pessoal. 


1750 OPEN"O”",41,"DIARIO/DAT” 
1780 PRINT &1,LIS(N,O) 

1810 FOR J=1 TO 4:PRINT4&I, STR$( 
ASC(MIDS (LIS(N,P),J,1))):NEXT J 
1820 PRINT 41,MIDS(LIS(N,P),5) 
1850 CLOSE 41 

1890 OPEN"I”,41,"DIARIO/DAT" 
1910 LINE INPUT 41,LIS(N,O) 
1950 FOR J=1 TO 4: INPUT4I,NNS:L 
IS(N,P)=LIS(N,P) +CHRS (VAL (NN$S)) 
“NEXT J 


1960 LINE INPUT 41,NNS:LIS(N,P) 


IS fbbaE 
990 


+NNS 








Um programa como o do jogo cha- 
mado Otelo pode ser escrito — como vi- 
mos — de maneira que o computador 
dispute contra um adversário humano 
sem que este fique numa situação de in- 
ferioridade. Mas, neste caso, com um 
pouco de prática, pode-se, quase sem- 
pre, ganhar do computador. 

Nas próximas três seções de Progra- 
mação de Jogos, veremos um programa 
mais sofisticado escrito para que o com- 
putador dispute o jogo chamado A Ra- 
posa e os Gansos. Esse programa ofe- 
rece vários níveis de dificuldade, permi- 
tindo que o jogo se torne tão fácil ou 
tão difícil quanto se queira. 

A Raposa e os Gansos serve para ilus- 
trar muitos dos problemas e dos princi- 
pios envolvidos na elaboração de um 
dos mais interessantes e dificeis jogos 
que existem: o xadrez. 

Para os programadores, contudo, es- 
se jogo apresenta um inconveniente: é 
impossível escrever em BASIC um pro- 
grama de xadrez que valha a pena, pois 


a máquina levaria longo tempo para exe- 
cutar cada jogada. Nos níveis superio- 
res de 4 Raposa e os Gansos, O progra- 
ma despende um bom tempo para ana- 
lisar cada movimento, chegando mesmo 
a perder cerca de meia hora nos níveis 
mais altos e nas máquinas mais lentas. 
O problema pioraria muito se tentásse- 
mos escrever um jogo de xadrez. 

Para manter nosso trabalho longe das 
dificuldades do código de máquina, pre- 
cisamos de um jogo mais simples. A Ra- 
posa e os Gansos preenche esse requisi- 
to, porque, além de ter várias caracte- 
rísticas do xadrez, é jogado no mesmo 
tipo de tabuleiro. 

O artigo está dividido em três partes. 
Nesta primeira, você terá acesso aos 
princípios que fundamentam o progra- 
ma e dará início à estruturação do jo- 
go. Nas duas seguintes, construiremos 
os segmentos restantes. 

Vamos começar analisando o jogo 
propriamente dito e quais as exigências 
necessárias para disputá-lo. 








Era uma vez uma raposa que jogava p 
xadrez contra um grupo de 

gansos e... Bem, se você quer saber 

o fim dessa história, leia o 

artigo a seguir e entre no jogo. 
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RES O JOGO 


A Raposa e os Gansos é Jogado nas 
casas brancas (verdes, nas ilustrações) de 
um tabuleiro de xadrez. Nele, temos 
uma raposa que inicia a disputa em um 
lado do tabuleiro e quatro gansos que 
partem do lado oposto. Um jogador 
controla a raposa e outro, os gansos. 
Para a raposa, o objetivo do jogo é pas- 
sar pelas posições das aves e atingir o la- 
do oposto; para os gansos, tudo se re- 
sume em encurralar a raposa. 

O jogo pode parecer desequilibrado, 
já que se trata de uma disputa de qua- 
tro contra um; entretanto, O programa 
limita as investidas dos gansos para a 
frente, enquanto dá à raposa inteira li- 
berdade de movimentos para a frente e 
para trás. Além disso, ele foi escrito de 
tal maneira que o computador pode 
jogá-lo tanto com a raposa, como com 
os gansos ou mesmo sozinho. 


COMO RESOLVER OS PROBLEMAS 


A Raposa e os Gansos apresenta ou- 
tro ponto de semelhança com o xadrez: 








FAÇA DO COMPUTADOR UM 


JOGADOR INTELIGENTE 





E RAPOSA, GANSOS E XADREZ 
TEORIA DE PROGRAMAÇÃO 


E 
ii EXPLICANDO O JOGO 


aqui também o fator sorte não é decisi- 
vo. Na verdade, o resultado depende 
apenas da perícia dos adversários. Em- 
bora seja teoricamente possivel para o 
computador aprender a jogar por ten- 
tativa e erro, como um ser humano, es- 
ta não é a melhor forma de resolver os 
problemas envolvidos no jogo — e, de 
qualquer modo, um programa assim 
concebido não caberia no seu micro. 

Programar um jogo como A Raposa 
e os Gansos ou como o xadrez é um 
exercício de inteligência artificial. Para 
constituir um desafio a um jogador hu- 
mano, o computador precisa jogar in- 
teligentemente. Porém, a máquina não 
tem condições de olhar para o tabulei- 
ro e captar as relações espaciais entre as 
peças, tal como nós o fazemos. Assim, 
as posições devem ser convertidas em 
valores numéricos que possam ser ana- 
lisados pelo computador. 

Para escrever um programa que per- 
mita ao computador jogar de modo in- 
teligente, deve-se primeiro estudar a na- 
tureza do jogo. Esta determinará o tipo 
de programa. E importante, também, 
ter como referência um método ideal, 
inteiramente documentado. Prestam-se 
bem a esse tratamento a resolução do 
cubo mágico, aberturas de xadrez etc. 
Em comparação com tais exemplos, 
nossa tarefa é mais simples. 

Quando o elemento sorte está presen- 
te, é possivel usar uma estratégia de mo- 
vimento único — ou seja, O programa 
analisa as alternativas de jogo apenas 
um movimento à frente para, então, es- 
colher a melhor jogada. O ludo, por 
exemplo, seria um candidato a essa es- 
tratégia, exigindo rotinas de decisão re- 
lativamente simples. 

Em jogos em que a sorte conta pou- 
co ou nada, como em A Raposa e os 
Gansos, pode-se usar uma estratégia de 
movimentos consecutivos, onde se ana- 
lisa uma série de passos adiante para in- 
vestigar os resultados possíveis. Ao en- 
contrar o movimento mais vantajoso, O 
programa o executa, 





AVALIAÇÃO DA POSIÇÃO 


“Para que o computador possa deci- 
dir qual é o melhor movimento entre vá- 









E COMO RESOLVER PROBLEMAS 


O DE PROGRAMAÇÃO 
E COMO AVALIAR POSIÇÕES 

NO JOGO 
E. — INICIE O PROGRAMA 


rios possíveis, atribui-se um valor numé- 
rico a cada quadrado do tabuleiro. No 
nosso jogo, é vantajoso para a raposa 
estar o mais à frente possível — lembre- 
se de que ela ganha o jogo ao atingir o 
lado oposto do tabuleiro, 

As colunas são numeradas alternada- 
mente da esquerda para a direita e da 
direita para a esquerda. Assim, como os 
maiores números se alternam à direita 
e à esquerda, a raposa tenderá a se mo- 
ver em linha reta. 

Mas há outro elemento que deve ser 
considerado na avaliação de posições. 
Os cinco quadrados brancos imediata- 
mente à frente da raposa têm um signi- 
ficado especial para o jogo. Se você 
olhar para a figura 1, verá cinco qua- 
drados marcados de A a E. Se houver 
apenas um ganso em um desses quadra- 
dos, a raposa ganhará; se os gansos fo- 
rem dois, mas não estiverem nas posi- 
ções A ou B, ou se eles forem três, po- 
sicionados em ACD, BDE, ACE ou 
BCE, a vitória também caberá à raposa. 

No início de cada turno, quando o 
computador joga tanto pela raposa 
quanto pelos gansos, o programa vai pa- 
ra uma sub-rotina que examina as posi- 
ções de todas as peças e transforma es- 
sa informação em um único número, 
que o computador utiliza para escolher 
a melhor jogada. Quando a decisão é to- 
mada, o programa converte o número 
novamente em posições. 


BUSCA EM ÁRVORE 





Os movimentos possíveis de uma po- 
sição do tabuleiro podem ser represen- 
tados por uma estrutura em “árvore”, 
com ramificações a partir da posição da 
peça. As alternativas de movimento a 
partir da posição da peça da figura 2, 
por exemplo, estão ilustradas no dese- 
nho da figura 3. Se examinarmos um 
movimento adiante, a árvore ficará mais 
complicada, passando a incluir o segun- 
do nível de alternativas, também indi- 
cado na figura 3. 

Observe que nem sempre teremos 
quatro “ramos” na estrutura, visto que 
a peça pode estar bloqueada por outra 
ou posicionada em um dos quadrados 
que limitam o tabuleiro. 
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COMO ACELERAR O PROGRAMA 


Devido ao grande número de opera- 
ções que devem ser feitas, o BASIC po- 
de se revelar demasiado lento. Mas, com 
o uso de determinados procedimentos, 
é possível acelerar o programa. Inicial- 
mente, deve-se garantir que o programa 
não continue avaliando o próximo pas- 
so do adversário se o seu movimento já 
ganhou o jogo. Isso, no entanto, só eco- 
nomiza tempo no fim do jogo e não du- 
rante o seu desenrolar. 

Em segundo lugar, é preciso levar em 
conta que uma mesma configuração de 
posições pode ser encontrada fregiien- 
temente, a partir de jogadas diferentes. 
Convém, assim, elaborar uma tabela de 
configurações comuns com os valores já 
calculados associados a elas. Essa tabe- 
la fará com que o computador pare de 
analisar posições que se repetem. Tenha, 
porém, o cuidado de não armazenar da- 
dos de uma posição cuja avaliação po- 
de ser mais rápida do que uma consulta 
à tabela. Teoricamente, o emprego da 
tabela só é vantajoso nas situações em 
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que o computador avalia três lances 
completos — ou seja, três Jogadas de 
ambos os Jogadores — ou mais. No en- 
tanto, a prática tem demonstrado que 
a armazenagem só vale realmente a pe- 
na quando cinco ou mais lances estive- 
rem sendo analisados. 

Finalmente, há a possibilidade de se 
utilizar o algoritmo alfa-beta, descober- 
to no início dos anos 60 por pesquisa- 
dores da área de inteligência artificial. 
Recorre-se a ele sempre que, numa bus- 
ca em árvore, a análise envolve mais de 
um nível, 

Voltemos à figura 3, que mostra os 
movimentos possíveis de uma posição 
da raposa. O programa vai avaliar to- 
do o ramo A, depois o ramo B. O me- 
lhor movimento será armazenado pelo 
programa e comparado com os resulta- 
dos de cada ramo. Ao encontrar, em 
qualquer ponto, um resultado pior do 
que um anterior, todo o ramo será re- 
jeitado., 

Quando a árvore se torna mais com- 
plexa, o algoritmo alfa-beta é realmen- 
te útil, podendo descartar cerca de 
99,8% das possibilidades em um está- 
gio bem inicial, com um ganho de tem- 
po similar. Neste jogo, a árvore não 
atingirá tal nível de complexidade. 

















INICIE O PROGRAMA 





Agora que você já tem uma noção da 
teoria envolvida num jogo como A Ra- 
posa e os Gansos, passe à digitação da 
primeira parte do programa. Ela se en- 
carrega de montar alguns desenhos, mas 
você não os verá por enquanto, se exe- 
cutar o programa. Não se esqueça de 
gravar as linhas digitadas. 


30 DEF FN A(F)=INT (LN 
+. 001) 

100 GoTo 2002 
2002 GOSUB 5000 
2006 BORDER 4d: 
2008 PRINT AT B,7; 
ARDE A PREPARACAO” 
5000 FOR J=USR “A” TO USR “D"+/ 

READ A: POKE J,A: NEXT J: RET 
URN 
5070 DATA 20,28,55,127,15,20,40 
,/72,0,0,248,252,250,40,20,20,0, 
0,0,7,205,123,60,15,12,20,31,15 
2,248,216,48,224 
6000 LET SS(1)=" l 2 3 
4” 
6010 LET 5$(2)=" 8 7 6 5 


(F) /L2Z 


PAPER 4: CLS 


FLASH 1;"AGU 


6015 LET S8$(3)=" 9 120 11 
LET 
6030 LET 5$(4)="16 15 14 13 


6040 LET 88(5)=" 17 18 19 Z 


0” 

6050 LET S$(6)="24 23 22 21 
6060 LET 88(7)=" 25 26 27 Z 
6070 LET S$(8)="32 31 30 29 


6100 RETURN 





5 CLS: PRINT €230,"DEFININDO GRA 
FICOS":GOSUB 4000 
10 SCREEN 1,0:GOTO 10 
4000 PMODE 3:PCLS:DIM GS(5),FX( 
4) ,SQ(10O) 
4010 DRAW"BM3, OC2FGRIFR5E3RED3IF 
DGLGNFLNG2LH2LH”" : PAINT(12,5),2: 
PSET(0,1,4):PSET(14,5,4):PSET(I 
6,4,4):GET (0,0)-(19,9),65,6 
4020 DRAW"BM18B, 20C4GL] 3HLG2R2F2 
ND4R10ND4U2” : PAINT(10,22),4:PSE 
T(2,21,1) :GET(0,20)-(19,28),FX, 
G 
4030 LINE(0,0)-(175,175),PSET,B 
F:COLOR 3:LINE(8,8B)-(16/7,16/),P 
SET,BF 
4040 FOR K=8 TO 128 STEP 40:FOR 
L=28 TO 148 STEP 40:PUT(L,K)-( 
L+19,K+19),80Q, PSET: PUT(L-20,K+2 
0)-(L-1,K+39),80, PSET:NEXT L,K 
4050 PUT(68,13)-(8B7,21),FX,PSET 





4060 FOR K=8 TO 128 STEP 40:PUT 
(K,153)-(K+19,162),6S, PSET:NEXT 
4070 TH$="R2ND6R2BR4D6BR4AUILBROE 
ND3BUZUBF 3ND3R4D3BR5U6D3NR3F 3BR 
4U3BUZUBF 3BR2ND3R4D3BR7L3U3RID6 
L3BE3BR4ABR5SREBR5SA” 

4080 MW$="ND6F3RU3D6BR9L4U3R4DI 
BE3F 3UEZBR3R3IDL3ID2R3IBR6NUGEZF2N 
U6BRIU6D3IR4D3BR7L3U3R3IDLIBR7NUN 
R2D2BR8L3U3R3DL3BE4BR7R4DIL4D3” 
4090 WG$="RD6E2FZU6BR4D6BR4U3NL 
2BF 3U3BUZUBF 3BRNR3D3RIBRANUGBRA4 
U3NL3IBE3BREBL4AD6R4UIBR4DIR4AUVIL4B 
R8D3R4U3IL IBR9BULZD2R2D2L2BR9LIU 
3R3DL” 

4100 V$="T402DEFEGACDEGGDCDE” 
4200 C=1:G=0:RETURN 

5000 FOR K=1 TO 14:PUT(200,5)-( 
210,15),80, PRESET:PLAY"TSOAC":P 
UT(200,5)-(210,15),80Q, PSET: PLAY 
"DA” : NEXT: RETURN 


DM 


5 CLS: COLOR 1,11,11:SCREENO 

7 KEYOFF:GOSUB 4000 

10 GOTO 10 

4000 SCREENZ,2:FX=1:A58="":FORK= 
2TO5S:CS(K-1,0)=K:NEXT:FOR K=1TO 
4:6G5(K,1)=32-K:NEXT 

4010 FOR K=1 TO 32:READ A:AS=AS 
+CHES (A) :NEXT:FOR K=1 TO 4:SPAI 
TES (GS (K,0) )=AS:NEXT:AS="" 

4020 FOR K=1 TO 32:READ A:AS=AS 
+CHRS (A) :NEXT: SPRITES (FX)=AS: 
4030 LINE (10,10)-(185,185),6,B 
F:LINE (18,18)-(177,177),11,BF 
4050 FOR K=18 TO 138 STEP 40:F0 
R L=38 TO 158 STEP 40:LINE (L,K 
)J=(L+19,K+19),3,BF;LINE (L-20,K 
+20) -(L=1,K+39),3,BF:NEXT:NEXT 
4060 PUT SPRITE FX, (78,20),6 
4070 FOR K=0 TO 3:PUT SPRITE GS 
(K+1,0), (18+K*40,159),15:NEXT 
4080 V5="T20003DEFBGACDEGGDCDE” 
4100 DATA 0,0,12,60,12,6,6,7,7, 
3,3,1,0,0,1,2,0,0,0,0,0,8,8,24B 
,248,248,248,240,224,192,32,16 
4110 DATA 0,0,0,2,2,6,62,27,3,3 
2,2,2,2,0,0,0,0,0,0,0,4,8,248, 
240,240,16,16,16,16,0,0 

4200 RETURN 

5000 BEEP:RETURN 


Dj 


2  LOMEM: 
5 HOME 





16384 
GOSUB 4000: GOSUB 310 


10 END 


4000 DATA 02,00,06,00,42,00 

4010 DATA 45,62,63,63,46,45,4 
5,53,63,63,119,41,53,127,9,45,4 
5,45,62,63,63,55,45,45,53,63,63 
,/14,45,62,55,55,119,73,40,60,0 
4020 DATA 45,45,44,44,44,54,5 
5,63,62,63,46,45,45,45,45,45,45 
,44,44,172,146,194,27,63,63,63, 


63,55,45,45,45,45,62,63,63,63,4 
6,62,62,126,73,73,37,37,36,0 


4030 FOR A = 768 TO 768 + BB: 
READ E: POKE A,E: NEXT 

ana0 POKE 233,3: POKE 232,0 
4050  RETUAN 

5000 FOR K = 1 TO 3: PRINT CH 
RS (7);: NEXT : RETURN 





O TABULEIRO 


310 LET F=FEN A(ABS (P))-30: 

LET B=P/B(F): IF B<O THEN LET 

B=B+BX: LET F=33-F 

320 LET C=B/B(29): FOR A=8 TO 

1 STEP -l: LET R$(A)=BS(INT (C 

J+1, (2-FN W(A))): LET C=(C-INT 
(C))*16: NEXT A 

330 LET RS(INT (F/4+.8)) (FN C( 

F)+1 TO FN C(F)+4)=FS(EN WíF/4 

-.2)+1) 





340 FOR A=] TO 8: PRINT AT 2Z*A 
.B:; PAPER 7;S55(A): PRINT AT 2* 
A+1,8; PAPER 7;R$S(A): NEXT A: 
RETURN 

310 HGR HCOLOH= 5: BOT= 0: 5 
CALE= 1 


, | 


a20 X1 = 57:X2 = 219:7] = 0:72 

- 159:08 = 1:FX = 2 

330 HPLOT X1,Y1l TO X2,Y1 TO X2 
2 TO X1,Y2 TO K1,7]) 

340 FORT = ATO / 

3580 IN = 20 * (1 / 24< > IN& 

(1 / 2)) 

360 FOR qd = 0 TO lI9 

370 FOR K = 0 TOS 

a4B0 HPLOT 20 * T+ J+X1]+ãI, 
(40 * K + IN) TO 20 * L+ JJ + 
1 + 1 (40 * K + IN + 19) 

390 NEXT : NEXT NEXT HCOLO 
R= 3 

395 DAAW FX AT X1 + 3 * 20 + 3 
41+8B 

400 FOR [= 0TO 6 STEP MZ: DRA 
W GS ATXI+I*Z0+B8B,Y1+7 

* Z0 + 5: NEXT RETURN 


As linhas que vão de 310 a 350 mos- 
tram o tabuleiro com as cinco peças em 
posição. A sub-rotina é chamada uma 
vez a cada jogada, tanto pela raposa 
quanto pelos gansos. 

As instruções para os demais micros 
fazem parte de uma outra sub-rotina de 
gráficos. 
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“AES ESCOLHA DA 


"MEMÓRIA AUXILI/ 


Todos os computadores utilizam uma 
parte da memória central, chamada 
RAM (Random Access Memory), para 
armazenar programas e dados que são 
entrados pelo teclado ou carregados a 
partir de um periférico de armazena- 
mento de dados. Esses dispositivos ex- 
ternos são necessários porque a infor- 
mação armazenada na memória RAM 
desaparece quando o computador é des- 
ligado. 

Existem diversos tipos de dispositivo 
de memória auxiliar destinados a micro- 
computadores. Os principais são as fi- 
tas e os discos. Ambos possibilitam o ar- 
mazenamento permanente de informa- 
ção, pois seu funcionamento é baseado 
no princípio da gravação magnética. 
Há, entretanto, uma grande diferença 
entre eles no que diz respeito ao custo 
de aquisição e à capacidade e velocida- 
de de armazenamento. 

Os discos, que constituem os dispo- 
sitivos mais sofisticados e caros da me- 


mória auxiliar, dotam o computador 
pessoal de poderosos recursos, permitin- 
do a programação de aplicações mais 
complexas, como bancos de dados de 





R 


uso profissional e sistemas de controle 
para pequenas empresas. 








ARMAZENAMENTO EM FITA 


O periférico de armazenamento de 
dados mais utilizado em computadores 
pessoais é o gravador comum de fita cas- 
sete, que alia conveniência operacional 
e baixo custo. Para a maioria dos usuá- 
rios domésticos, este é o único fator que 
conta. 

O gravadores de audiocassete existen- 
tes no mercado são, quase todos, bas- 
tante adequados para essa finalidade. A 
vantagem adicional é que existe uma 
enorme quantidade de software de pre- 
ço acessivel disponível em fita cassete, 
para a maioria dos computadores pes- 
soais (sobretudo na área de jogos e en- 
tretenimento). 

A tecnologia dos gravadores-cassete 
é muito simples. Seu uso com compu- 
tadores requer apenas que um sinal au- 
divel seja gerado pela interface adequa- 
da para a gravação na fita. Assim, para 
que o sistema funcione a contento, bas- 
ta montar uma conexão entre o compu- 
tador e o gravador e ajustar corretamen- 
te os níveis de volume e tonalidade. Com 
alguns cuidados periódicos de manuten- 
ção, O usuário não terá problemas por 
longo tempo. 

Bem, isto é o que acontece na teoria! 
Na prática, contudo, não é tão fácil con- 
seguir a combinação ideal entre o peri- 
férico e o micro. 





Existem dois tipos de memória auxiliar 
para micros: a fita cassete, barata e 
amplamente disponível, e o disquete, 
poderoso, mas bem mais caro. Veja aqui 
como fazer a melhor escolha. 








QUALIDADE DE GRAVAÇÃO 


Uma boa maneira de contornar difi- 
culdades mais sérias consiste em com- 
prar um gravador apropriado para mi- 
crocomputadores (data recorder). Eles 
diferem dos gravadores comuns por dis- 
porem de circuitos eletrônicos internos 
que processam sinais mais “limpos” de 
transmissão digital. 


Gravadores especiais, como, por 


exemplo, os destinados a computadores 


da linha MSX, dão menos problemas na 
gravação e leitura de dados digitais e, 
também, possibilitam uma conexão 
mais simples com o computador. Nem 
esses aparelhos, porém, estão totalmente 
livres de falhas, pois é o sistema de gra- 
vação em fita, em si, que apresenta cer- 
tas desvantagens técnicas, 

O principal ao se usar fita é aumen- 
tar ao máximo a qualidade de gravação: 
esta é uma área, portanto, sobre a qual 
o usuário pode exercer algum controle. 
Convém lembrar que, mesmo quando a 
gravação foi bem feita, o sinal deteriora- 
se ao ser lido por um gravador de baixa 
qualidade. O resultado é pior ainda 
quando se tenta gravar alguma coisa 
com um aparelho que esteja em más 
condições. 

A qualidade da fita também é muito 
importante. Basicamente, deve-se evitar 
a tentação de utilizar uma fita velha, so- 
bretudo se for de longa duração (C-90 
ou C-120). 

Há um conflito aqui, pois, como a 
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* método de gravação empregado, seria 
— desejável ampliá-la, usando-se fitas de 
- maior duração. Estas, porém, são bem 
mais finas do que as €-30 e, em conse- 
'quência, podem sofrer alongamentos 
por efeito do vaivém contínuo e pela 
força relativamente grande exercida pelo 
rebobinamento e avanço rápidos. 

O alongamento determina perda de 
bytes na fita e variações na amplitude 
do sinal. Ambos os efeitos são desastro- 
sos, no que diz respeito às caracteristi- 
cas de leitura por computadores: um 
byte perdido invalida a leitura de todo 
um programa, por exemplo. Na melhor 
das hipóteses, isto pode levar a carrega- 
mentos irregulares. Na pior das hipóte- 
ses, dados são perdidos durante a 
gravação! 

Uma fita €-30 é a melhor opção prá- 
tica: ela suporta quinze minutos de gra- 
vação de cada lado, o que é mais do que 
suficiente para armazenar programas 
muito extensos (até 64 Kbytes) na maio- 
ria dos computadores. Alguns micros 
das linhas Sinclair e TRS-80, entretan- 
to, têm baixas velocidades de transmis- 
são (300 baud), podendo exceder a ca- 
pacidade da fita para dados e progra- 
mas. Nesse caso, recomenda-se usar fi- 
tas C-60 de boa qualidade, mas sempre 
com muito cuidado. 

Um programa de 32 Kbytes, por 
exemplo, gasta somente três a quatro 
minutos de fita nos micros das linhas 
TRS-Color e MSX, cerca de seis minu- 

tos nos micros da linha Spectrum, e qua- 


de da memória é limitada pelo 


9 PERIFÉRICOS 9 


“ARMAZENAMENTO EM FITA 
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E QUALIDADE DA GRAVAÇÃO 
a TAXA DE TRANSMISSÃO 
ALÇAS DE FITA 
= ACESSO SERIAL 


se quinze minutos no ZX-81. Faz mais 
sentido, portanto, recorrer a fitas de 
curta duração, gravando-se apenas um 
ou dois programas de cada lado, com 
uma duplicata, para fins de segurança. 
Esse procedimento não só favorece à 
conservação da fita como também tor- 
na muito mais fácil verificar onde está 
O início de uma gravação. É 

Existem fitas cassete de alta qualida- 
de, feitas especialmente para gravação 
de dados digitais. Elas são normalmen- 
te disponíveis em três durações: CIO, 
CI5 e C20. E sempre bom testá-las an- 
tes de comprá-las em grande quantida- 
de, pois são mais caras do que as fitas 
comuns. 





TAXA DE TRANSMISSÃO 


Os problemas com fitas cassete ficam 
bem mais sérios quando a taxa de trans- 
missão de dados entre gravador e com- 
putador é mais alta. A taxa de transmis- 
são, ou seja, a velocidade com que os 
bytes passam do computador para o, 
gravador e vice-versa, é medida em 



























bauds. Um baud, a grosso modo, cor- 
responde ao número de bits transmiti- 
dos por segundo (na realidade, o núme- 
ro é calculado com base em um esque- 
ma um pouco mais complicado). 

Quanto mais alta for a taxa de trans- 
missão utilizada pelo computador, me- 
lhor deverá ser a qualidade do gravador 
e da fita cassete. Uma fita pode funcio- 
nar perfeitamente bem com um ZX-8] 
ou TRS-B0 Modelo I, mas falhará se 
usada com um TK-85 com função 
speed, ou com um MSX. O mesmo pro- 
blema ocorrerá até com computadores 
mais lentos, em determinadas situações 
— por exemplo, na gravação de jogos 
com rotinas próprias de carregamento 
rápido. 


ALÇAS DE FITA 





Para evitar os transtornos causados 
por gravadores convencionais de fita 
cassete, alguns fabricantes desenvolve- 
ram um sistema diferente: O cassete de 
fita sem fim (alça de-fita). Os mais co- 
nhecidos são o Microdrive e o Wajadri- 





ve, para os micros da linha Sinclair 
Spectrum, mas existem diversas unida- 
des disponíveis para computadores de 
outras marcas, usando interfaces padro- 
nizadas, como o R$-232C. Dispositivos 
desse tipo, Infelizmente, não são encon- 
trados no Brasil. 

O acionador de alça de fita (tape 
loop) é um gravador que usa um casse- 
te especial, com uma bobina sem fim 
(em alça). A fita desloca-se apenas em 
uma direção, mas muito rapidamente, 
de maneira que o ponto de início de um 
programa é atingido sem que seja neces- 
sário rebobinar a fita. Além de econo- 
mizar tempo, o processo também pro- 
tege a fita do desgaste provocado pelo 
avanço e rebobinamento rápidos dos 
gravadores convencionais. 

Um Microdrive, por exemplo, com 
sua velocidade e capacidade (cerca de 
100 Kbytes), permite que se eliminem to- 
dos os problemas das fitas convencio- 
nais. Seu desempenho, em alguns casos, 
aproxima-se do de acionadores de dis- 
quetes, muito maiores e mais caros. 

Há algumas desvantagens, entretan- 
to, nesse tipo de dispositivo: os cartu- 
chos de fita são bem mais caros, a ofer- 
ta de software no formato adequado é 
menor e, mesmo com maior velocidade 
e capacidade, ele não se presta para mui- 
tas aplicações nos campos educacional 
e profissional. 


ACESSO SERIAL 





Em qualquer sistema que utiliza fita, 
a transferência de dados entre gravador 
e computador é realizada sob a forma 
de uma segiuência continua de bytes, ou, 
em outras palavras, como uma fila in- 
diana, do primeiro ao último byte. Pa- 
ra levar os dados ou programas de vol- 
ta à memória, é preciso achar o ponto 
de início, e carregar a partir daí. Esse 
tipo de processo é chamado de acesso 
serial. 
" Para aplicações mais simples, como 
jogos ou outros programas pequenos, O 
método não apresenta desvantagens sé- 
rias, pois o programa precisa ser locali- 
zado e carregado apenas uma vez. En- 
tretanto, oferece inconvenientes para 
aplicações em que, com frequência, o 
computador precisa carregar dados ou 
segmentos de programa, em ordem di- 
ferente daquela em que estão gravados 
na fita. É o que ocorre com as aplica- 
ções de bancos de dados. Um dispositi- 
vo de alça de fita pode, quando o volu- 
me de dados é pequeno, “simular” um 
- disquete, através da marcação de ““blo- 
| cos” fixos de dados na fita e da locali- 
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zação rápida dos mesmos por um soft- 
ware especial. Porém, havendo um 
grande volume de dados, a única solu- 
ção é o acionador de disquetes. 





ACIONADORES DE DISCOS 


Os acionadores de discos são os dis- 
positivos mais rápidos de memória au- 
xiliar para microcomputadores. O tem- 
po médio necessário para a localização 
de blocos de dados no disquete é medi- 
do, muitas vezes, em milésimos de se- 
gundo. A rapidez da gravação e a lei- 
tura de programas torna o dispositivo 
atraente principalmente para quem não 
consegue suportar a lentidão do CSA- 
VE e CLOAD dos gravadores. 

Os discos magnéticos são, além dis- 
so, muito mais confiáveis e seguros do 
que as fitas, desde que se tomem algu- 
mas precauções elementares. A perda de 
bytes por falhas no sistema de leitura ou 
gravação é rara e, quando ocorre, nem 
sempre o arquivo inteiro ou o disco fi- 
cam inutilizados. 

Entretanto, o uso de discos impõe 
uma nova série de tarefas e procedimen- 
tos básicos, que exigem um grau de me- 
ticulosidade e precisão desnecessário 
com as fitas. Se você não tomar cuida- 
do e utilizar inadequadamente os co- 
mandos de manipulação de arquivos em 
discos, disponíveis nos sistemas opera- 
cionais, as: consequências poderão ser 
desastrosas. Existe, por exemplo, um 
comando que apaga um disco inteiro, 
em um piscar de olhos. 

A fantástica capacidade de armaze- 
namento dos discos magnéticos é uma 
forte razão para que se redobrem as pre- 
cauções. Existem modelos com 10 a 20 
megabytes de capacidade total, ou seja, 
aptos a armazenar até vinte milhões de 
caracteres (o que equivale, mais ou me- 
nos, à quantidade de texto de uma en- 
ciclopédia de trinta volumes!). Mais co- 
mumente, entretanto, a capacidade dos 
disquetes disponíveis para computado- 
res pessoais é bem mais modesta: algo 
entre 150 a 360 Kbytes. Mas, mesmo as- 
sim, corresponde a uma grande quanti- 
dade de dados valiosos. 

Infelizmente, os disquetes são vulne- 
ráveis a dobras, a arranhões e a agres- 
sões físicas do ambiente, tais como umi- 
dade e sujeira. Além disso, são sensíveis 
a campos magnéticos causados por alto- 
falantes, aparelhos de TV, motores de 
geladeira etc. 

Para armazenamento de longa dura- 
ção, a fita constitui um candidato bem 
melhor do que o disco. Assim, grandes 
empresas costumam manter seus arqui- 
vos vitais em bobinas de fitas, confian- 
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do aos discos apenas as operações diá- 
rias, mais rápidas. 

Por todas as razões expostas, 
recomenda-se aos usuários de discos que 
façam, regularmente, cópias de seguran- 
ça (back-up) dos arquivos de dados e de 
programas. A frequência dessa opera- 
ção depende muito da quantidade de in- 
formações geradas ou alteradas. 





COMO FUNCIONA UM ACIONADOR 


O funcionamento de um acionador 
de discos não é muito diferente do fun- 
cionamento de um gravador de fitas. O 
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sistema de leitura e gravação trabalha 
sobre um disco, chato, recoberto de ma- 
terial ferromagnético, como a fita, só 
que obedecendo a padrões de qualida- 
de muito mais rigorosos. 

Como o gravador, o acionador de 
discos possui uma cabeça de leitura e 
gravação, que é mantida em contato 
com a superfície magnética. A diferen- 
ça é que a cabeça também pode ser mo- 
vimentada, pulando de trilha para tri- 
lha da mesma maneira que o braço de 
um fonógrafo. Assim, com o disco ro- 
lando em alta velocidade, atinge-se ra- 
pidamente qualquer um de seus pontos. 

Antes de sua utilização, o disco é for- 
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matado, ou seja, sua área total é dividi- 
da em trilhas concêntricas e estas, por 
sua vez, em segmentos iguais, chamados 
de setores. Os setores se subdividem em 
blocos, cada qual capaz de armazenar 
entre 128 a 256 bytes de informação. Es- 
ses blocos podem ser imaginados como 
se fossem as “gavetas” de um escaninho. 

Um programa chamado sistema ope- 
racional de discos (DOS) possibilita a 
gravação ou leitura de informações nos 
blocos (cada um tem um endereço dis- 
tinto, como na RAM). O DOS é um re- 
quisito essencial para a operação de um 
acionador de discos. 


A cabeça de leitura e gravação pode, 





O disco é formatado antes de ser usado, ou 
seja, é dividido em trilhas e setores. 
Cada setor tem a capacidade de 256 bytes. 


ser direcionada pelo DOS, de modo a se 
posicionar sobre qualquer setor na su- 
perfície do disco, com uma velocidade 
bastante grande. Por isso, o disco mag- 
nético é um dispositivo de acesso arbi- 
trário, muitas vezes mais rápido do que 
o acesso serial ou sequencial da fita. 
Ocorre que ele também é um dispositi- 
vo de acesso serial, só que limitado a um 
setor por vez. Isso torna o sistema mui- 
to mais veloz, flexivel e poderoso do que 
o baseado em fita. 


Os discos magnéticos para computa- 
dores dividem-se, basicamente, em dois 
tipos: os discos rígidos e os discos fle- 
xíveis. 

O disco rígido, de preço bem mais cle- 
vado do que o flexível, é confecciona- 
do em metal, e, em geral, não é inter- 
cambiável, ou seja, permanece sempre 
dentro do acionador. A cabeça não en- 
costa em sua superfície, mas paira a al- 
guns milésimos de milímetro da mesma. 

Graças a essa caracteristica, o desgas- 
te desse disco é nulo, e a densidade da 
gravação, muito maior. Atualmente, os 
discos rígidos para micro — também 
chamados discos Winchester — têm ca- 
pacidades entre 5 a 40 Mbytes, depen- 
dendo do modelo. 

O disco flexível, genericamente deno- 
minado disquete (ou floppy), é feito de 
plástico e protegido dentro de um enve- 
lope semi-rígido, lubrificado interna- 
mente. Pode ser adquirido em três ta- 
manhos: 8 polegadas (19 cm), 5,25 po-. 











legadas (12,5 cm) ou 3,5 polegadas (8,5 
cm) de diâmetro. O mais utilizado em 
computadores pessoais ainda é o de 5,25 
polegadas, chamado de minidisquete, 
embora os microdisquetes (3,5 polega- 
das) estejam se tornando cada vez mais 
populares. Estes são embalados em car- 
tuchos rígidos, o que lhes confere van- 
tagens marcantes quanto ao manuseio 
e segurança. Sua capacidade é também 
bem maior, devido à superioridade na 
densidade de gravação. 

A velocidade de rotação de um dis- 
co, seu tamanho, tipo de superficie e a 
presença ou não de uma segunda cabe- 
ça do outro lado do disco condicionam 
a capacidade e velocidade de acesso dos 
diversos modelos existentes. O usuário 
deve, portanto, levar em conta todos es- 
ses fatores, se pretende escolher o acio- 
nador de discos mais adequado às suas 
necessidades. 

Os discos magnéticos classificam-se, 
ainda, em duas outras categorias: a ca- 
tegoria dos que só podem ser gravados 
em um lado (discos .de face simples) e 
a dos que permitem a gravação nos dois 
lados, simultaneamente (discos de face 
dupla). 

A densidade de gravação também di- 
ferencia os discos. Os mais baratos e de 
menor qualidade têm densidade simples: 
sua capacidade total-é bastante restrita. 
Os de maior capacidade e velocidade de 
transmissão têm densidade dupla. Final- 
mente, existem os discos de densidade 
quádrupla, com o dobro do número de 
trilhas dos outros discos. Estes utilizam 
uma técnica de pulsos de gravação di- 
ferente da técnica dos demais e oferecem 
o grau máximo de capacidade e veloci- 
dade. Naturalmente, o preço do disque- 
te aumenta de acordo com sua capa- 
cidade. 

Para maior segurança, devem ser 
usados os disquetes com a especificação 
correta para cada densidade. Mas mui- 
tos usuários que trabalham com aciona- 
dores de face simples (linha Apple, por 
exemplo) costumam utilizar também o 
outro lado disponível no disquete, fa- 
zendo um pequeno orifício quadrado na 
margem não perfurada do envelope. Tal 
procedimento deve ser evitado no caso 
de discos especificados para densidade 
simples. Além disso, convém levar em 
conta que detritos oriundos da perfura- 
ção podem danificar o disco e, até mes- 
mo, a cabeça do acionador. 


SISTEMAS OPERACIONAIS 





O controle dos acionadores de discos 
exige um software especial. Este é for- 
necido junto com o acionador, forman- 


do com ele uma unidade inseparável na . 


utilização por um computador. Essen- 
cialmente um sistema operacional, o 
software gerencia todos os processos de 
localização de informação e de transfe- 
rência entre computador e disco. 

Em geral, o sistema operacional de 
disco (DOS) não reside na memória 
ROM permanente do computador, pre- 
cisando ser carregado na RAM a partir 
do próprio disco, antes de ser ativado. 
Assim, uma parte da RAM é utilizada, 
ficando menos disponível para os pro- 
gramas e dados do usuário. 

Alguns computadores pessoais po- 
dem usar mais de um sistema operacio- 
nal com o mesmo acionador de disque- 
tes. Certos sistemas operacionais, por 
outro lado, têm mais comandos ou, ain- 
da, são mais poderosos e flexíveis do 
que outros. Mas é preciso cautela na es- 
colha, pois a formatação imposta ao dis- 
co muitas vezes varia entre sistemas ope- 
racionais. Em consequência, o usuário 
não conseguirá utilizar programas fei- 
tos para um DOS, se tiver carregado 
um DOS diferente no computador. Na 
maioria das vezes, porém, não há sequer 
a possibilidade de escolha entre vários 
tipos de DOS, pois só existe um para 
aquela marca de computador. 





INTERFACES E CONEXÕES 


Se você tem a intenção de adquirir 
um ou mais acionadores de discos, con- 
sidere cuidadosamente se a unidade em 
vista é realmente compativel com sua 
máquina. Além de um DOS adequado, 
é necessário também escolher um disco 
com interface que se adapte a seu siste- 
ma. Consulte os fabricantes — do com- 
putador e da unidade de discos — e pro- 
cure aconselhar-se junto a colegas e co- 
nhecidos que já tenham tido sucesso na 
compra de uma unidade de disco para 
um computador igual ao seu. 


SOFTWARE PARA DISCO 





Comprar um acionador de discos po- 
de ser muito bom para incrementar seu 
sistema, mas, para uma boa escolha, 
convém ter claro o que você pretende fa- 
zer com ele. Quer esteja pensando em 
desenvolver seus próprios programas — 
em Assembler, BASIC, PASCAL ou 
outra linguagem de programação —, 
quer pretenda apenas utilizar “pacotes” 
prontos de software, verifique primei- 
ro se as ferramentas de programação ou 
os próprios programas estão disponíveis 
em quantidade e qualidade para o siste- 
ma que você tem em mente. 





Sistemas baseados em microdisque- 
tes, por exemplo, são recentes no mer- 
cado, mesmo em termos internacionais, 
e ainda existe muito pouco software pa- 
ra esse formato. Também é pequena a 
oferta de software próprio para sistemas 
de disquetes para a linha MSX. À me- 
dida que um sistema vai se difundindo, 
porém, essa situação tende a mudar. 
Mas micros implantados há mais tem- 
po no mercado — como o Apple e o 
TRS-80 — terão sempre maior varieda- 
de de software que os demais. 

Existe ainda a alternativa de se trans- 
ferir software de um formato para ou- 
tro. Certos programas comercialmente 
disponíveis, por exemplo, tornam pos- 
sível copiar software de fita para disco; 
paralelamente, alguns sistemas opera- 
cionais reconhecem discos de diferentes 
densidades, e assim por diante. Em um 
próximo artigo trataremos em detalhes 
desse assunto. 


COMO ESCOLHER? 


O custo é, certamente, um fator bas- 
tante significativo no momento de de- 
cidir entre um sistema baseado em fita 
e outro baseado em disco. Muitas das 
vantagens dos discos não são importan- 
tes para usuários domésticos interessa- 
dos apenas em aplicações como jogos. 
Para a maioria dos computadores pes- 
soais não existem, em disquete, muitas 
opções de programas recreativos ou de 
videogames, € O pouco que se encontra 
custa mais caro do que a mesma versão 
para fita. Em contrapartida, há a pos- 
sibilidade de que a versão para disquete 
seja mais sofisticada. 

As unidades de disco são muito mais 
caras do que as de fita, custando mais 
do que o próprio computador. As vezes, 
o preço não inclui o cabo de ligação, que 
também é caro. 

É preciso considerar, ainda, o custo 
do suporte de informação. O preço de 
um disquete é muitissimo mais elevado 
do que o de uma fita cassete de boa qua- 
lidade. Normalmente um disquete de 
densidade quádrupla custa quatro ou 
cinco vezes mais do que um de densida- 
de simples. No entanto, deve-se levar em 
conta que, ao contrário da fita, o dis- 
quete permite aproveitamento total de 
sua capacidade. 

Já os discos rígidos são tremenda- 
mente caros e úteis apenas em aplicações 
mais profissionais. E claro que seria 
muito bom ter todo o seu software dis- 
ponível instantaneamente no mesmo dis- 
co, e carregá- lo em um piscar de olhos. 
Mas será que isso vale o preço de um 
Winchester? 
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PROGRAMAÇÃO BASIC 


Mensagens secretas: como produzir seus próprios códigos. 
Códigos Morse, de Júlio César e de posição. Cifra Saint Cyr. 


PROGRAMAÇÃO DE JOGOS 
A rotina principal do caça-níqueis. Resultados premiados. 
Como segurar, empurrar e apostar. Efeitos sonoros. 


PROGRAMAÇÃO BASIC 


Armazenagem de números. Ponto flutuante. Números negativos. 
PEEK na memória. Formatação com PRINT USING. 





pes 


